Вводятся значения двух ЦИФР. Напечатать максимальное двузначное число, которое можно...

Question

Вводятся значения двух ЦИФР. Напечатать максимальное двузначное число, которое можно сформировать из этих цифр или сообщение, что таких двузначных чисел не существует. (Pascal)

Answer 1

Program op;
uses crt;
var a, b, max, min:integer;
Begin
clrscr;
writeln('Введите первое число ');
readln(a);
writeln('Введите второе число ');
readln(b);
If a>b then max:=a min:=b else max:=b min:=a;
writeln(max min);
end.