MAESTRA CATTIVA

ECCO IL PROGRAMMA PASCAL CHE RISOLVE IL COMPITO DELLA MAESTRA CATTIVA.....
program maestracattiva;
const inizio=3000; fine=6000; passo=3;
var i,j:integer;
begin
for j:=1 to 3 do
for i:=inizio to fine do
if(i-inizio)mod(j*passo)=0 then
write(i:5);
end.