ЗА ПРАВИЛЬНОЕ РЕШЕНИЕ Составьте блок-схему для данной программы: Var a, h, S, P:real Begin Writeln('Введите x:') ; Readln(P) ; Writeln('Введите y:' ) ; Readln(h) ; S:= 2P - sqrt(P-4); a:= h -3P; a:= S/a; Writeln (a); end.