Вычислить площадь поверхности цилиндра по формуле - Pascal ABC

Формулировка задачи:

Вычислить площадь поверхности цилиндра по формуле ,где радиус основания цилиндра (R) и высота цилиндра (h) вводятся с клавиатуры,

Решение задачи: «Вычислить площадь поверхности цилиндра по формуле»

Листинг программы

Var
  r,h: Real;
BEGIN
Write('Введите радиус основания цилиндра: ');
Readln(r);
Write('Введите высоту цилиндра: ');
Readln(h);
Writeln('Площадь поверхности цилиндра = ',2*pi*r*h+2*pi*Sqr(r):2:2);
END.

Объяснение кода листинга программы

Объявлены две переменные r и h типа Real для хранения радиуса основания цилиндра и его высоты соответственно.
Выводится сообщение с просьбой ввести радиус основания цилиндра.
Вводится значение радиуса основания цилиндра и сохраняется в переменной r.
Выводится сообщение с просьбой ввести высоту цилиндра.
Вводится значение высоты цилиндра и сохраняется в переменной h.
Вычисляется площадь поверхности цилиндра по формуле 2πrh + 2π*Sqr(r).
Выводится сообщение с результатом вычисления площади поверхности цилиндра.