Найти 15 первых натуральных чисел оканчивающихся на цифру 4, кратные числу 8 и больших 250 на паскале

program N98187664;
var
i: byte;
x: word;
begin
{Прямым перебором с проверкой}
i := 0;
x := 250;
while i < 15 do
begin
repeat
inc(x)
until (x mod 10 = 4) and (x and 7 = 0);
write(x:5);
inc(i)
end;
writeln(#10);

{Или просто так}
x := 264;
for i := 1 to 15 do
begin
write(x:5);
inc(x, 40)
end;
readln
end.