Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H — Pascal(Паскаль)

{    Определить объем и площадь боковой поверхности цилиндра
                 с заданными радиусом основания R и высотой H

                                    Тест
                       ╔═══════════╦═════════════════╗
                       ║   Данные  ║    Результат    ║
                       ╠═════╤═════╬════════╤════════╣
                       ║ R=1 │ H=1 ║ V=3.14 │ S=6.28 ║
                       ╚═════╧═════╩════════╧════════╝
}
Program Cylinder;
Uses Crt; {Подключение библиотеки Crt}
Var
  R,       {радиус основания цилиндра}
  H,       {высота цилиндра }
  V,       {объем цилиндра }
  S: Real; {площадь боковой поверхности цилиндра}
BEGIN
  ClrScr;  {Вызов из библиотеки Crt процедуры очистки экрана}
  Write('Введите высоту цилиндра : ');  ReadLn(H);
  Write('Введите радиус основания : '); ReadLn(R);
  V := Pi * R * R * H;
  S := 2 * Pi * R * H; WriteLn;
  WriteLn('Объем цилиндра = ', V : 5 : 2); {Здесь 5 - общее 
      количество позиций, занимаемых переменной V при выводе,
      а 2 - количество позиций в дробной части значения V}
  WriteLn('Площадь боковой поверхности = ', S : 5 : 2);
  ReadLn
END.