Найдите площадь круга. Радиус вводится с клавиатуры. Записать все в паскаль

program Krug;var r,s:real;beginWriteln('Введите радиус круга:');read(r);s:=3.14*r*r;Writeln('Площадь круга:',s);end.или же так

Так

Поставь спасибо плиз)

и мне)

PROGRAM KRUG;

VAR R,S:REAL;

BEGIN

R:=1;

S:3.14*R*R;

WRITE LN(S)

END.

S=pr^2 это твой ответ