Решить ввод: а и б ,вывести результаты сравнения

Var
  a,b:integer;
begin
  Write('вводите a,b: ');
  Read(a,b);
  if a>b then Writeln('Первое число больше')
  else
    if a<b then Writeln('Второе число больше')
    else Writeln('Числа равны')
end.