линейные программы по ТЕМЕ 4(1)

program KrugSL;
const pi: real = 3.14158;
var r:integer; s,l:real;
begin

  writeln('Введите радиус: ');
  read(r);
  s := pi * r * r;
  l := 2 * pi * r;
  writeln('Площадь = ', S, ' сантиметров квадратных');
  writeln('Длина = ', L, ' сантиметров');

end.