var c1,c2,b,m:integer; begin write('Введите число 1 '); readln(c1); write('Введите число 2 '); readln(c2); if c1>c2 then begin b:=c1, m:=c2; c2:=m+b; c1:=m*b; end else b:=c2, m:=c1; c1:=m+b; c2:=m*b; end: write('Первое число=',c1,'Второе число=',c2); end.
Answers & Comments
var
c1,c2,b,m:integer;
begin
write('Введите число 1 ');
readln(c1);
write('Введите число 2 ');
readln(c2);
if c1>c2 then begin b:=c1, m:=c2; c2:=m+b; c1:=m*b; end
else
b:=c2, m:=c1; c1:=m+b; c2:=m*b;
end:
write('Первое число=',c1,'Второе число=',c2);
end.