программы с If поТеме 5.1

program BID;
var a,b: integer;
begin

  Writeln('Какое же из 2 чисел больше? Сейчас узнаем!');
  Readln(a,b);
  if (a = b) then
    writeln('Так они же равны!')
  else
    if (a > b) then
      writeln('Число ', a, ' больше ', b)
    else
      writeln('Число ', b, ' больше ', a);

end.