var a,b:Integer;
begin
Write('Введите первое число ');
ReadLn(a);
Write('Введите второе число ');
ReadLn(b);
if a-b>0 then Write('БОЛЬШЕ');
if a-b<0 then Write('Меньше')
end.
var a,b:Integer;
begin
Write('Введите первое число ');
ReadLn(a);
Write('Введите второе число ');
ReadLn(b);
if a-b>0 then Write('БОЛЬШЕ');
if a-b<0 then Write('Меньше')
end.