Ответ:
var a,b:Integer;
begin
Write('Введите первое число ');
ReadLn(a);
Write('Введите второе число ');
ReadLn(b);
if a-b>0 then Write('БОЛЬШЕ');
if a-b<0 then Write('Меньше')
end.
Расшифрование: ВЕЗДЕ ИССЛЕДУЙТЕ ВСЕЧАСНО ЧТО ЕСТЬ ВЕЛИКО И ПРЕКРАСНО.
Отличаются по мощности, новые - более совершенные