Вариант No 1
- Меньшее низ двух заданных чисел возведите в квадрат, а большее уменьшите в 2 раза.
Если числа равно, то найдите их сумму. SOS срочно
​

program z;

var a,b:integer;

begin

     writeln('Enter A');

     readln(a);

     writeln('Enter B');

     readln(b);

     if a<b

        then

            begin

                 a:=sqr(a);

                 writeln('A = ',a);

                 writeln('B = ',b);

            end

     else

         begin

              b:=sqr(b);

              writeln('A = ',a);

              writeln('B = ',b);

         end;

end.