Помогите с програмкой (Repeat...Until)...

[Goldberg]

Помогите написать програмку на паскале с оператором цикла с постусловием :

Repeat
......
......
Until

А задача вот какая:

Задано два целых числа N1 и N2.
Если N1 >N2, найти сумму целых чисел в диапазоне N1 ... N2
Если N2 >N1, найти сумму целых чисел в диапазоне N2 ... N1
Если N1 =N2, вывести на экран соответствующее сообщение
Для решения задачи использовать цикл с постусловием.

[eoln]

var
  n1, n2: integer;
  s: integer;
begin
  write('n1 n2 == ');
  readln(n1, n2);
  s := 0;
  if n1 = n2 then
  begin
    writeln('ravno');
    readln;
    exit
  end
  else if n1 < n2 then
  repeat
    s := s + n1;
    n1 := n1 + 1
  until n1 > n2
  else if n2 < n1 then по образу и подобию предыдущего цикла
  

  writeln('s = ', s);
  readln
end.

[Goldberg]

eoln - спасибо!!!!!!!