uses crt;    

var

i:integer;

procedure jadval;

begin

    clrscr;

    writeln;

    write('█▀▀');

    for i:=1 to 10 do

      write('▀▀');

     write('▀▀█');

    writeln;

    write('█');

    writeln('█':25);

    write('█');

    write('name & family':18);

    writeln('█':7);

    write('█');

    writeln('█':25);

     write('█▄▄');

    for i:=1 to 10 do

         write('▀▀');

     write('▄▄█');

end;

begin

   write('jadval:');

   jadval;

end.