Прошу сделайте , как можно быстрее , записать на языке Паскаль

Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin

write('Введите радиус = ');
readln(radius);
write('Введите вышину = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);

ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;


writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);

end.