Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.
1 взять пакет с кормом в руки
2 открыть пакет
3 подойти к миске
4 наклониться
5 насыпать корм
6 выпрямиться
7 убрать корм на место
8 позвать собаку
Ошибка:Операция '>' не применима к типам boolean и integer