Составить алгоритм вычисления объёма конуса по формуле V=1/3ПRквадрат*H

Освежил память xD
Program algoritm;
var V,R,H:real;
n:=3.14;
begin
writeln('Введите радиус основания конуса');
readln (R);
writeln('Введите высоту конуса');
readln (H);
V:=R*R*H*n/3;
writeln('Объем конуса равен',V);
end.