помогите написать программу на языке паскаль

Question

Юля Швырёва Знаток (410), на голосовании 7 лет назад

Cоставить блок схему алгоритма и программу для вычисления полной поверхности цилиндра с радиусом основания и высотой по формуле S=2pr(h+r)

Answer 1

const p = 3.14;
var r, h: real;
s:real;
begin
write('r=');readln(r);
write('h=');readln(h);
s:=2*p*r(h+r);
writeln('S=', s);
end.

Answer 2

Krab Bark Искусственный Интеллект (286457) 7 лет назад

var r,h:real; begin write('r h: '); readln(r,h); writeln('s=',2*pi*r*(h+r)) end.