Salut,
Program Afisarea_nr._de_la_1_la_100_dizivizibile_cu_6;
Var
Counter : Integer;
Begin
For Counter := 1 to 100 do
Begin
If (Counter Mod 6 = 0) Then
Begin
Writeln(Counter);
End;
End;
End.
L-am testat, funcționează fără erori, rezultatul este acesta, adică toate numerele naturale mai mici decât 100 și divizibile cu 6:
6
12
18
24
30
36
42
48
54
60
66
72
78
84
90
96
Green eyes.
