Question

Помогите пожалуйста перевести код з Pascal. Очень срочно,срочно нужно

Var n,k:word;

Begin

n:=200; k:=0;

repeat

n:=n+1;

If n mod 17=0 then

Begin

write(n,' '); k:=k+1;

end;

until k=5;

end.