Составить программу вычисляющую длину окружности и площадь круга радиуса 5, 6 см​

Пишу на языке Pascal

Программа:

var

 l5cm, s5cm,l6cm, s6cm :real;

begin

 l5cm := 2*5*3,14;

 l6cm := 2*6*3,14;

 s5cm := 3,14*5*3,14;

 s6cm := 3,14*6*3,14;

 writeln('Длина окружности при R = 5 см равен ',l5cm,' см.' );

 writeln('Площадь окружности при R = 5 см равен ',s5cm,' см.' );

 writeln('Длина окружности при R = 6 см равен ',l6cm,' см.' );

 writeln('Площадь окружности при R = 6 см равен ',s6cm,' см.' );

end.

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.