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