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

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