Найти все натуральные числа a,b,c из интервала от 10 до 50, для которых выполняется равенство - Free Pascal

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

привет всем, помогите написать программу. Найти все натуральные числа a,b,c из интервала от 10 до 50, для которых выполняется равенство a+t=

Решение задачи: «Найти все натуральные числа a,b,c из интервала от 10 до 50, для которых выполняется равенство»

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

var a, b, c, c2, x : integer;
Begin
a:=0; b:=0;
for c:=10 to 50 do
  begin
    c2:=c*c;
    if c and 1 = 1 then    //если C нечетное
      x:=(c2 shr 1)+1
    else  x:=c2 shr 1;     //просто делим пополам
    if  x > 50 then break  //дальше ничего не светит
    else 
      begin b:=c2 - x; a:=x; end;
  end;
writeLn('a=',a:4,'  b=',b:4,'  c=',c:4);
readLn;
End.

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

Объявлены переменные a, b, c, c2, x типа integer.
Переменные a и b инициализированы значением 0.
Запускается цикл for для перебора чисел c от 10 до 50.
Внутри цикла переменная c2 инициализируется значением c*c.
Если c - нечетное число (проверка c and 1 = 1), то x присваивается (c2 shr 1)+1.
Если c - четное число (проверка c and 1 = 0), то x присваивается значение c2 shr 1.
Если полученное значение x больше 50, то цикл прерывается командой break.
Если цикл не был прерван, то выполняется блок begin, где переменная b присваивается значение c2 - x, а переменная a - значение x.
После окончания цикла выводится значение переменных a, b и c.
Программа ожидает ввода пользователя с помощью функции readLn.
Программа завершается.