Question

Паскаль. Создать программу которая высчитывает площадь круга; радиус вводится пользователем. Программа завершается когда r <0

Answer 1

кароч вот порога на нахождение радиуса
program z1;
var r:integer;
var s:real;
begin
read(r);
s:=3.14×(sqr(r);
write (s);
end