Паскаль. Создать программу которая высчитывает площадь круга; радиус вводится пользователем. Программа завершается когда r <0
Кароч вот порога на нахождение радиуса program z1; var r:integer; var s:real; begin read(r); s:=3.14×(sqr(r); write (s); end