var a: integer;
begin
writeln('Введите радиус: ');
readln(a);
writeln('Площадь круга ровна ', a*3.14);
end.
var a: integer;
begin
writeln('Введите радиус: ');
readln(a);
writeln('Площадь круга ровна ', a*3.14);
end.