Більше з двох цілих чисел замінити їх сумою, а менше – поділити на 2.
Вивести обидва числа.

Program F1;

var x,y:integer;

begin

x:=10;y:=20;

if x > y then

 begin x:=1; y:=2 end

         else begin x:=2; y:=1;end;

writeln(x,' ',y);

end. 2 1

Пояснення. Виконуються оператори, що стоять після else, а потім writeln

Program F2;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else begin x:=2; y:=1;end;

writeln(x,' ',y);

end. 1 2

Пояснення. Виконуються оператори, що стоять після then, а потім writeln

Program F3;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else x:=2; y:=1;

writeln(x,' ',y);

end. 1 1

Пояснення. Виконуються оператори, що стоять після then, а потім y:=1 та writeln. Оператор y:=1 виконується, бо він не відноситься до else

Program F4;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else begin x:=2; y:=1; end;

x:=0; y:=0;

writeln(x,' ',y);

end.