Площадь круга

[Андрюха_ЕШКО]

Сообщение от Косюра

program Project1;

{$APPTYPE CONSOLE}

У меня еще одна программка имеется...

Program Pl.okr
var R,L,S:real; {радиус, длина и площадь окружности}
{процедура программиста}
Procedure Spokr(r:real;var s:real; var L:real);
{R - радиус, S - площадь круга, L - длина окружности}
begin
S:=pi*R*R;
L:=2*pi*R;
end;

{Основная программа}
Begin
writeln ('длина окружности и площадь круга:');
write(' Задайте радиус и нажмите<ENTER>');
readln(R);
L:=0;
S:=0;
Spokr(R,S,L); {переменные программы - фактические параметры процедуры}
writeln ('Радиус окружности: ', R:6:3);
writeln ('Длина: ',L:6:3,', площадь: ',S:7:3);
End.