Объяснение:
var x,y,f,g:integer;
begin
for var i:=1961 to 9611 do
if ((i mod 42=0) and (i mod 4<>0) and (i mod 5 <>0) and (i mod 13<>0)) then
writeln (i);
end.
