Найти длину окружности l и площадь круга s заданного радиуса r: l = 2·π·r, s = π·r 2

Var
r:integer;
l,s:real;
const
pi=3.1415;
begin
write('Введите радиус: ');
readln(r);
l:=2*pi*r;
s:=2*pi*sqr(r);
writeln('Длина окружности = ',l,#10,'Площадь круга = ',s);
readln;
end.