Даны два неравных целых двухзначных числа. Возвести в квадрат большее из этих чисел и удвоить меньшее число. Написать программу для паскаль.

Это решение при задании вручную этих чисел:

Program sadadasf;

var i, k, l: integer;

begin

Writeln ('Введите первое целое двухзначное число:');

readln (i);

Writeln ('Введите второе целое двухзначное число:');

readln (k);

If k>i then begin

k:=k*k;

i:=i*2;

end;

If i>k then begin

i:=i*i;

k:=k*2;

end;

Writeln ('Первое число:', i);

Writeln ('Второе число:', k);

end.

Это решение при задании чисел в самой программе:

Program sadadasf;

var i, k, l: integer;

begin

i:=5;

k:=3;

If k>i then begin

k:=k*k;

i:=i*2;

end;

If i>k then begin

i:=i*i;

k:=k*2;

end;

Writeln ('Первое число:', i);

Writeln ('Второе число:', k);

end.