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

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