Задана окружность радиуса R.Составьте программу для нахождения ее длины и площади ограниченного ею круга- Pascal(Паскаль)

var
  r: integer;
  l, s: real;

begin
  writeln('vvedite radius okruznosty');
  readln(r);
  l := 2 * 3.14 * r;
  s := 3.14 * r * r;
  writeln('Dlina okruznosti ravna: ', l);
  writeln('Ploshad kruga ravna: ', s);
  writeln;
  readln;

end.