Выполни алгоритм. Сколько объектов окажется в первом шкафу? (фотография на верху)

Question

Информатика: Выполни алгоритм. Сколько объектов окажется в первом шкафу? (фотография на верху)

Xcalibur · Accepted Answer

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Writeln('Первое число больше второго')
else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a<b then Writeln('Первое число меньше второго')
else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.

MOGZ ответил