вычислить объем цилиндра с радиусом основания r и высотой h

uses crt;
var

  v,r,h:real;
begin
  write('R='); readln(r);
  write('h='); readln(h);
  v:=pi*sqr(r)*h;
  write('V=',v);
end.

V - объём цилиндра
Число Пи = 3,14
Язык программирования: Паскаль

var
V, r, h : real;
begin
readln (r);
readln (h);
V := 3.14 * SQR(r) * h;
writeln (V)
end.