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

О боже, спасибо большое

var radius, visota, plotnost: integer;ploshad, obiem, massa: real;beginwrite('Введите радиус = ');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.