Определить результат выполнения алгоритма по его блок-схеме для x=5, y=7, z=9.

нет ничего проще,   но где блок-схема? если там алгоритм сложения то конечный результат очевидно 21. если там сравнение то z> y> x , если там сортировка то по возрастанию - x,y,z , соответственно по убыванию z,y,x 

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.