uses crt-

varx,y,xx,yy:integer-

begin-

clrscr-

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(‘0’)-

end-

end-

end.