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.
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.