Задание:
Составьте алгоритм (в виде блок-схемы и на АЯ) нахождения меньшего из двухзначений.
Решение:
var A, Я: IntegerBeginwriteln ('введите число A') Readln (A) writeln ('введите число Я') Readln (Я) if A>Я then write ('А больше Я') if A<Я then write ('Я больше А') End
Знаете другой ответ?