1)
const t=3.14;var R,P:real;beginwriteln('Введите радиус окружности');readln(R);P:=2*3.14*R;writeln('P=',P);readln;end.
2)const t=3.14;var R,S:real;beginwriteln('Введите радиус окружности');readln(R);S:=3.14*sqr(R);writeln('S=',S);readln;end.
1)
const t=3.14;
var R,P:real;
begin
writeln('Введите радиус окружности');
readln(R);
P:=2*3.14*R;
writeln('P=',P);
readln;
end.
2)const t=3.14;
var R,S:real;
begin
writeln('Введите радиус окружности');
readln(R);
S:=3.14*sqr(R);
writeln('S=',S);
readln;
end.