Realizar Un programa en Pascal que calcule el volumen de un cilindro

program cilindro;
uses wincrt;
var
volumen,radio,altura:real;
begin
writeln('Introduza Radio');
readln(radio);
writeln('Introduza altura');
readln(altura);
volumen:=3.1416*(radio*radio)*altura;
write('volumen de un cilindro es ', volumen:2:2);
end.