Question

Написать программу которая вычисляет длину окружности и площадь круга. Радиус должен вводится с клавиатуры.

Answer 1

var

  l,s,r:real;

begin

  write ('Radius: ');

  readln(r);

  s:=pi*r*r;

  l:=2*pi*r;

  writeln ('Dlina: ',l:0:4);

  writeln ('S: ',s:0:4);

  readln;

end.