Даю 20поинтов быстро информатики прошу​

: Язык Паскаль.

const

 pi= 3.14;

var

 r,h,v,s:real;

begin

 writeln('Введите радиус и высоту цилиндра через пробел');

 readln(r,h);

 v:= pi*r*r*h;

 s:= 2*pi*r*(h+r);

 writeln('Обьем цилиндра = ',v,'  ', 'Площадь цилиндра = ',s);

end.