задача 7 урок 10

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

begin;
i := for 1 to 100;
writeln((i mod 7) = 0);
end.