определите и выведите ** экран количество трехзначных чисел, которые делятся одновременно...

Question

определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7

в паскале авс

ПОМОГИТЕЕЕЕЕ!!!

Answer 1

Program zadanie1;

var

i:integer;

begin

for i:=100 to 999 do
Begin
if ( i mod 3 = 0 ) and ( i mod 5 = 0 ) and ( i mod 7 = 0 )
then writeln(i);
end;

end.