Определить, равна ли сумма первых двух цифр натурального числа сумме последних двух цифр - PascalABC.NET

Формулировка задачи:

Определить, равна ли сумма первых двух цифр натурального числа сумме последних двух цифр. Решать с помощью STR и VAL.

Решение задачи: «Определить, равна ли сумма первых двух цифр натурального числа сумме последних двух цифр»

Листинг программы

var N, i1,i2,i3,i4, code : integer;
  S, stmp : string;
begin
  repeat
    Write('Введите натуральное число N (больше или равное 100): ');
    ReadLn(N);
  until N>99;
  Str(N,S);
  val(Copy(S,1,1),i1,code);
  val(Copy(S,2,1),i2,code);  
  val(Copy(S,Length(S),1),i3,code);
  val(Copy(S,Length(S)-1,1),i4,code);  
  // WriteLn(i1:2,i2:2,i3:2,i4:2);
  if (i1+i2)=(i3+i4) then WriteLn('Суммы равны') else WriteLn('Суммы не равны')
end.

Объяснение кода листинга программы

Объявлены переменные N, i1, i2, i3, i4, code: integer; S, stmp: string;
Запускается цикл repeat, который будет выполняться до тех пор, пока пользователь не введет число N больше или равное 100;
В каждой итерации цикла пользователю предлагается ввести число N;
После ввода числа N, его преобразуют в строку и сохраняют в переменную S;
С помощью функции val и конструкции Copy, числа из строки S преобразуют в целые числа и сохраняют в переменные i1, i2, i3, i4;
Выполняется проверка (i1+i2)=(i3+i4), если условие выполняется, то выводится сообщение Суммы равны, иначе выводится сообщение Суммы не равны;
Цикл repeat завершается.