uses crt-

varx,y,xx,yy,a:integer-

begin-

clrscr-

writeln(‘Введите число’)-

readln(a)-

writeln(‘Введите размер таблицы x и y через Enter’)-

readln(x)-

readln(y)-

clrscr-

FOR xx := 1 TO x do

begin

FOR yy := 1 TO y do

begin

gotoxy(yy, xx)-writeln(a)-

end-

end-

end.