помогите составить программу в паскале!!!!

Question

Нужно составить программу, в которой компьютер должен вывести на экран числа от 1 до 1000, которые кратны 5 и 21.

Johnny · Accepted Answer

Кратны одновременно? 
for i := 1 to 1000 do if (i div 5 = 0) and (i div 21 = 0) then writeln( i ); 
или так 
for i := 1 to 9 do writeln( 5*21*i );

Владислав Шарай · Answer

var X : Integer; 
begin 
 X := 105; 
 repeat 
 Write(#32, X); Inc(X, 105); 
 until X > 1000; 
 WriteLn; 
end.

Георгий Григорьев · Answer

сейчас на почту кину- лови...