Решить задачу. Пользователь вводит 2 числа, вывести ** экран максимальное и минимальное...

Question

Решить задачу. Пользователь вводит 2 числа, вывести на экран максимальное и минимальное из этих 2 чисел. Если числа равны, вывести на экран "a=b".
ПОМОГИТЕ, СРОЧНО!!!

Answer 1

Program task1;

var
    a, b: integer;
   
begin
    writeln('Введите 1 число: ');
    read(a);
    writeln('Введите 2 число: ');
    read(b);
   
    if a > b then
        begin
            write('Максимальное: ', a);
            write('Минимальное: ', b);
        end
    else if a = b then
        write('a = b')
    else
        begin
            write('Максимальное: ', b);
            write('Минимальное: ', a);
        end;
end.