Надо сделать две на выбор ​

Задача 1:

var X,Y,tmp: double;

begin

writeln('Введите x');

readln(X);

writeln('Введите y');

readln(Y);

if (X<Y) then begin

tmp:=X;

X:=(X+Y)/2;

Y:=tmp*Y*2;

end

else begin

tmp:=Y;

Y:=(X+Y)/2;

X:=tmp*X*2;

end;

writeln('X=',X);

writeln('Y=',Y);

end.

Задача 6

var a,b,c,cnt: integer;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите c');

readln(c);

cnt:=0;

if (a<0) then cnt:=cnt+1;

if (b<0) then cnt:=cnt+1;

if (c<0) then cnt:=cnt+1;

writeln('Кол-во отрицательных чисел: ',cnt);

end.