решить 3 на выбор. заранее огромное !

первая, третья и четвёртая задачи (Pascal)

Объяснение:

program v1;

var x, y, z: double;

begin;

readln(x);

readln(y);

if (x>y) then

 z := x-y

else

 z := y-x+1;

writeln(z);

end.

program v3;

var x, y, z: double;

begin;

readln(x);

readln(y);

if (x>y) then

 z := sqr(x)

else

 z := sqr(y);

writeln(z);

end.

program v4;

var x, y, z: double;

begin;

readln(x);

readln(y);

if (x<y) then

 z := x*2

else

 z := y*2;

writeln(z);

end.