Написать программку с подмогою языка программирования Паскаль по нахождению ответа на

Сначала задачка обязана быть решена геометрически. Явно, что круг войдет в прямоугольник если его поперечник D будет меньше, чем наименьшая из сторон этого прямоугольника min(a,b). Вот и все решение.

По этому решению сочиняем алгоритм:
1. Ввести a, b, D
2. Отыскать m - минимум (a,b)
3. Если Dlt;m, то вывести извещенье "Войдет", по другому вывести известье "Не войдет".
4. Завершить работу.

Осталось написать программку.

1. Современное решение

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var (a,b,d):=ReadReal3('Введите через пробел a,b,D:');
  var m:=Min(a,b);
  if Dlt;m then Writeln('Войдет')
  else Writeln('Не войдет')
end.

Пример
Введите через пробел a,b,D: 14.5 11 10.6
Войдет

2. "Школьный" вариант - так писали наши отцы и деды

var
  a,b,D,m:real;

begin
  Write('Введите через пробел a,b,D: ');
  Read(a,b,d);
  if alt;b then m:=a
  else m:=b;
  if Dlt;m then Writeln('Войдет')
  else Writeln('Не войдет')
end.

Var a,b,D:integer;
begin
readln(a,b);
readln(D);
if (Dlt;=a) and (Dlt;=b) then writeln('YES')
else writeln('NO');                          
end.