Nomer 1

program n1;
var r, d:Integer;
begin
Write('vvedite radius: ');
Readln(r);
Write('vvedite diametr: ');
Readln(d);
WriteLn('dlinna okruznosti ravna:' , 3.14*d:2:2);
WriteLn('ploshad kruga ravna:' , 3.14*d*d:2:2);
end.