Создать программу на языке Паскаль для расчёта длины и площади окружности радиусом R

program krug;

Const Pi = 3.14159265;

var r:integer;

perimetr, ploshad: real;

begin

writeln('Введи радиус окружности ');

read(r);

perimetr:=2*Pi*r;

ploshad:=Pi*r*r;

writeln('Площадь = ',ploshad,'; Периметр = ', perimetr);

end.