Pascalban kellene egy kis segítség?

WriteLn('1');

WriteLn('1111');

WriteLn('1');

WriteLn('1111');

program kackac;

const

kerdezo_bitszama = 1;

begin

writeln(kerdezo_bitszama);

writeln(kerdezo_bitszama*1111);

writeln(kerdezo_bitszama);

writeln(kerdezo_bitszama*1111);

end.

program BigProject;

procedure printIt;

  var i: byte;

begin

  write('I');

  write(#13#10);

    for i:= 0 to 3 do write('I');

  write(#13#10);

end;

  var i: byte;

begin  {main}

  i:= 0;

  while i < 2 do

   begin

   printIt;

   inc(i);

  end;

 readln();

end.

Small is beautiful:

write(#73#13#10#73#73#73#73#13#10#73#13#10#73#73#73#73#13#10);

Small is beautiful 2.0:

write(#73#13#10#73#73#73#73#13#10#73#13#10#73#73#73#73);

program BigProject2; // overstructured

procedure CrLf;

begin

 write(#13#10);

end;

procedure PrintChar;

begin

 write('I');

end;

procedure PrintIt;

 var i: byte;

begin

  PrintChar;

  CrLf;

   for i:= 0 to 3 do PrintChar;

  CrLf;

end;

 var i: byte;

begin {main}

  i:= 0;

  while i < 2 do

   begin

    printIt;

    inc(i);

   end;

  readln();

end.

program hasznos;

var i, j : byte;

begin

for i := 0 to 3 do

      begin

            for j := 0 to i mod 2 * 3 do Write(1);

      WriteLn;

      end;

end.

program hasznos2;

uses sysutils;

var i : byte;

begin

      for i := 0 to 3 do WriteLn(LeftStr('1111', i mod 2 * 3 + 1));

end.