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

Решить задачку. Юзер вводит 2 числа, вывести на экран максимальное и минимальное из этих 2 чисел. Если числа одинаковы, вывести на экран "a=b".

Задать свой вопрос
1 ответ
Var a,b:integer;
begin 
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else 
begin
if (agt;b) then writeln('max=',a,' min=', b) else 
writeln ('max=',b, ' min=', a)  
end;
readln;
end.
Леха Калинник
Спасибо!!!
Лакиенко Валентина
И здесь=)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт