Разработать алгоритмы и по ним составить блок-схемы. a)вычисления функции y=(10x+x^2-1)(10x+1) b)найти площадь основной пирамиды s, если известна высота h и объем пирамиды v. (v=1/3•s•h)

Var x,y:real;
begin
Writeln ('введите x',x);
readln (x);
y:=(10*x+sqrt(x)-1)*(10*x+1);
writeln ('x=',x);
end.