сверху образец ниже задание, подсказка :изменится то что в обрасце красным цветом

Держи, горе луковое))
1)зрение;
с глаз люди различают цвета, воспринимают зрительную информацию, к которой относятся и текстовая, и числовая, и графическая;

2) слух;
уши воспринимать звуковую информацию – речь, музыку, звуковые сигналы, шум;

3)обоняние;
с носа люди получают информацию о запахах окружающего. мира;

4) вкус;
вкусовые рецепторы языка дают возможность получить информацию о том, каков предмет на вкус — горький, кислый, сладкий, соленый;

5)осязание;
кончиками пальцев (или просто кожей) , наощупь можно получить информацию о температуре предмета — горячий он или холодный; качество его поверхности — гладкий или щершавый.

Это решение при задании вручную этих чисел:
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.