program drugi;
var n,z:integer;
begin
for n:=100 to 500 do begin
if (n mod 5=0) and (n mod 6=0) then inc(z);end;
writeln(z);readln;end.
tak nesto drugi. moram se stusirati pa nemrem provjeriti niti napisati prvi jer mi se jaja smrzavaju. malo kasnije budem. javi jel radi.