Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.