Составить алгоритм решения с алгоритмического языка pascal и с блок-схем, используя конструкцию линейного алгоритма. вычислить объем v и площадь боковой поверхности конуса s по введенным значениям радиуса основания r, высоты h и образующей l

program qq;

uses crt;

const pi=3.14;

var v,r,h,l,s:integer;

begin

clrscr;

writeln('введите r,h,l');

readln(r,h,l);

V:=trinc((pi*sqr(r)*h)/3);
S:=pi*r*l;

writeln('плщадь равна',p,' объем равен',v);

readln

end.

смотри в прграмме есть оператор функция trinc если училке не понравится то v:=((pi*sqr(r)*h)) div 3;