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