Дана последовательность чисел 5,9,13, слагаемых следует взять чтобы получить сумму равную 3164.составьте программу для паскаль и блок схему,через систему writeln do

Var x,i:integer;
begin
x:=5;
i:=1;
while (x<>3165) do begin
x:=x+4;
i:=i+1;
end;
writeln(i);
end.