Question

Написать программу в паскале!

Написать программу при помощи процедуры, которая по известному радиусу возвращает в основную программу значения площади круга и длины окружности.
Входящие данные; R (радиус)
Выходящие данные: S (площадь), L (длинна окружности).

Answer 1

procedure Pl (R:integer;var p:real)
begin
p:=3,14*R*R;
end;
procedure length (R:integer;var l:real);
begin
l:=3,14*R*2;
end;