Сравнение двух чисел Pascal(Паскаль)

Программа для сравнения двух целых чисел

program CompareNums;
var
  numOne, numTwo : integer;
begin
  write('Введите первое число ');
  readln(numOne);
  write('Введите второе число ');
  readln(numTwo);
  if numOne = numTwo then
     writeln(numOne, ' = ', numTwo)
  else
    if numOne < numTwo then
      writeln(numOne, ' < ', numTwo)
    else
      writeln(numOne, ' > ', numTwo);
   writeln('Для выхода из программы нажмите клавишу Enter');
   readln;
end.  

Leave a Comment