Составить программу вычисления длины окружности и площади круга по указанному в диалоге радиусу- Pascal(Паскаль)

uses crt, math;
var
r: integer;
d, s: real;
begin clrscr;
write('r=');
read(r);
s:=pi*sqr(r);
writeln('s=',s);
d:=2*pi*r;
writeln('dlina dugi=', d);
readkey;
end.