tabliczkaMnozenia

program tabliczkaMnozenia;
uses crt;
var x,y : byte;
tabliczka : array[1..10,1..10]of byte;
begin clrscr;
for y:=1 to 10 do begin
    for x:=1 to 10 do begin
    tabliczka[x,y]:=x*y;gotoxy(25+3*x,2+2*y);write(tabliczka[x,y]);
    end;
end;
readkey; end.