помогите написать программу на с++ Найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы

Var
  n, a, b, c : integer;
begin
  read (n);
  if (n < 100) or (n > 999) then writeln ('FALSE')
  else
begin
  a := n div 100;
  b := (n div 10) mod 10;
  c := n mod 10;
  if ((a <> b) and (b <> c) and (a <> c)) or (a + b + c = 13) then
    writeln ('ENTER')
  else writeln ('LOCK'); 
end;
end.

Если в паскале то:
X: array[1..14] of integer/string/real/ и т.д.

var D, K, L : integer;
begin
d:=K*L
end.

Repeat - цикл с постусловием, т.е. обязательно произойдет хотя бы одна итерация. После слова until дано условие выхода из цикла: i не больше единицы. Соответственно, после первой итерации получаем:
s = 1
i = 0
После этого выполняется проверка на выход из цикла. 0 <= 1 - верно. Следовательно, программа выходит из цикла.
Ответ: s = 1, i = 0

Ошибки нет там всёправельго