program na_zaliczenie_dla_kolejnego_przyszlego_informatyka;
var
  budynek, poziom, ilosc_budynkow, ilosc_poziomow, aktualny_budynek,x: Integer;
begin
  ilosc_budynkow := 4;
  ilosc_poziomow := 10;
 
  x := 1;
 
  for aktualny_budynek := 1 to ilosc_budynkow do
  begin
    for poziom := 1 to ilosc_poziomow do
    begin
      if (poziom = 1) and (budynek > 1) then
        continue;
      for budynek := 1 to ilosc_budynkow do
      begin
        if budynek < aktualny_budynek then
          write(ilosc_poziomow:3)
        else if budynek > aktualny_budynek then
          write(1:3)
        else 
          write(poziom:3);
      end;
      writeln();
      inc(x);
    end;
  end;
end.program ideone;
begin
	(* your code goes here *)
end.

cHJvZ3JhbSBuYV96YWxpY3plbmllX2RsYV9rb2xlam5lZ29fcHJ6eXN6bGVnb19pbmZvcm1hdHlrYTsKdmFyCiAgYnVkeW5laywgcG96aW9tLCBpbG9zY19idWR5bmtvdywgaWxvc2NfcG96aW9tb3csIGFrdHVhbG55X2J1ZHluZWsseDogSW50ZWdlcjsKYmVnaW4KICBpbG9zY19idWR5bmtvdyA6PSA0OwogIGlsb3NjX3BvemlvbW93IDo9IDEwOwogIAogIHggOj0gMTsKICAKICBmb3IgYWt0dWFsbnlfYnVkeW5layA6PSAxIHRvIGlsb3NjX2J1ZHlua293IGRvCiAgYmVnaW4KICAgIGZvciBwb3ppb20gOj0gMSB0byBpbG9zY19wb3ppb21vdyBkbwogICAgYmVnaW4KICAgICAgaWYgKHBvemlvbSA9IDEpIGFuZCAoYnVkeW5layA+IDEpIHRoZW4KICAgICAgICBjb250aW51ZTsKICAgICAgZm9yIGJ1ZHluZWsgOj0gMSB0byBpbG9zY19idWR5bmtvdyBkbwogICAgICBiZWdpbgogICAgICAgIGlmIGJ1ZHluZWsgPCBha3R1YWxueV9idWR5bmVrIHRoZW4KICAgICAgICAgIHdyaXRlKGlsb3NjX3BvemlvbW93OjMpCiAgICAgICAgZWxzZSBpZiBidWR5bmVrID4gYWt0dWFsbnlfYnVkeW5layB0aGVuCiAgICAgICAgICB3cml0ZSgxOjMpCiAgICAgICAgZWxzZSAKICAgICAgICAgIHdyaXRlKHBvemlvbTozKTsKICAgICAgZW5kOwogICAgICB3cml0ZWxuKCk7CiAgICAgIGluYyh4KTsKICAgIGVuZDsKICBlbmQ7CmVuZC5wcm9ncmFtIGlkZW9uZTsKYmVnaW4KCSgqIHlvdXIgY29kZSBnb2VzIGhlcmUgKikKZW5kLg==