Nie jestem pewien czy do końca o to Ci chodziło ale napisałem na szybko takie coś:
Program szescian;
uses CRT;
var
a,n,m,x,y: integer;
znak: char;
begin
Clrscr;
Write('Podaj liczbe wierszy: ');
Readln(n);
Write('Podaj liczbe znakow w wierszu: ');
Readln(m);
Write('Jaki znak przyjac? ');
Readln(znak);
clrscr;
for y := 1 to n do
for x := 1 to m do begin
gotoxy(x,y);
write(znak);
end;
readln;
end.
Jeżeli to nie to to napisz mi MP, sprecyzuj co tu było źle to postaram się Ci pomóc.
