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

program training;

{$mode objfpc}{$H+}

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

begin
i := readnl('число')
if i > 100 then
begin
b := for i to 1 do
writenl(b)
end
if i begin
d := for 1 to i do
write (d)
end
end.