uses crt;
var x,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.