информатика - Введены два числа нужно определить больше из них либо написать что числа равны

Решение: var     a,b:integer;begin   write('Введите два числа: ');readln(a,b);   if a>b then writeln('Первое число больше, чем второе')             else  if a<b then writeln('Второе число больше, чем первое')                                else writeln('Числа равны');end.      Проверил на Паскале, работает 100%