Var x,y,z:integer;
begin
x:=5; y:=-6
if (x>y) then z:=x+y else z:=y-x;
Writeln(Z);
end.
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
Блок-схема - в прилагаемом файле.
подергай синий колпачок либо сними и обратно вставь
я так всегда делаю