9 lines
130 B
ObjectPascal
9 lines
130 B
ObjectPascal
Program pr1;
|
|
var r: integer;
|
|
begin
|
|
writeln('Ðàäèóñ');
|
|
readln(r);
|
|
writeln('Äëèíà = ', Pi*2*r);
|
|
writeln('Ïëîùàäü = ', Pi*r*r);
|
|
end.
|