Заполнить таблицу нулями.
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.