Вычислить объем цилиндра - Turbo Pascal

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

Написать процедуру, которая вычисляет объем цилиндра. Параметрами процедуры должны быть радиус, высота цилиндра и переменная для результата.

Решение задачи: «Вычислить объем цилиндра»

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

uses crt;
var
   r,h:integer;
   v:real;
procedure Vcil(r,h:integer;var v:real);
begin
     v:=pi*sqr(r)*h;
end;
begin
   write('Vvedite Radius:');
   readln(r);
   write('Vvedite H:');
   readln(h);
   Vcil(r,h,v);
   writeln('V=',v);
end.

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

В начале кода используется библиотека crt, которая используется для работы с консолью.
Далее объявлены три переменные: r, h и v типа integer, real и real соответственно.
Затем определен процедурный блок Vcil, который принимает три аргумента: r, h и v типа integer, real и real соответственно. Внутри процедуры вычисляется объем цилиндра по формуле pisqr(r)h, где pi - это число пи, sqr - это функция возведения в квадрат, r - это радиус цилиндра, h - это высота цилиндра. Значение переменной v затем присваивается результату вычисления.
В блоке begin считываются значения радиуса и высоты цилиндра с помощью функции readln.
Затем вызывается процедура Vcil, передавая в нее значения радиуса и высоты цилиндра.
После выполнения процедуры выводится значение переменной v с помощью функции writeln.