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.