Задача по паскалю

Question

Задача по паскалю

Кирилл Оружеев Ученик (128), закрыт 1 год назад

написать программу которая запрашивает у пользователей любое число, если оно больше 50,то находит площадь окружности с таким радиусом

Answer 1

 var
  r, s: double;
begin
  Write('Введите радиус окружности: ');
  ReadLn(r);
  if r > 50 then
  begin
    s := pi * r * r;
    WriteLn('Площадь круга: ', s);
  end;
end.