утверждение Ферма без массивов [Паскаль]

[syrga]

решить без массивов6
Ферма высказал гипотезу: "Любое целое число n является суммой всех трех треугольных чисел,т.е.:
n=(x*(x-1))/2+(y*(y-1))/2+(z*(z-1))/2
проверить гипотезу ферма для всех n<100(определить булевскую функцию, определяющую является ли данное число треугольным)

[Mad_Cat]

определить булевскую функцию, определяющую является ли данное число треугольным

function treugol(n:integer):boolean;
var i,x:real;
begin
treugol:=false;;
i:=1;
x:=i*(i+1)/2;
while abs(x-n)<0.0000001 do begin
i:=i+1;
x:=i*(i+1)/2;
if abs(x-n)>0.0000001 then exit;
end;
treugol:=true;
end;