Составить программу вычиcления объема цилиндра при радиусах r и высоте h,по формуле v=p*r*r*h

Program pr;

Var V, P, R, H:real;

Begin

Writeln('Введите R');

readln(R);

Writeln('Введита H');

readln(H);

V:=3,14*R*R*H;

Writeln('V=, V');

readln;

end.

var

p,r,h:real;

begin

readln(p,h);

v:=Pi*sqr(r)*h;

writeln(v:5:3);

end;