var a: integer;
begin
writeln('Введите радиус: ');
readln(a);
writeln('Площадь круга ровна ', a*3.14);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Информатика 7классрешить то что на фото учитывая дискриптор♪┌|∵|┘♪ └|∵|┐♪
var a: integer;
begin
writeln('Введите радиус: ');
readln(a);
writeln('Площадь круга ровна ', a*3.14);
end.