uses crt; var i,j,w,xp,x0,y0:integer; begin clrscr; x0:=1;y0:=6;xp:=8; gotoxy(30,2); write('tabliczka mnozenia'); gotoxy(33,3); write('0 <= a <inf'); gotoxy(34,4); write('0*a=0; 1*a=a '); gotoxy(5,22); write('press any key'); for i:=2 to 10 do for j:=1 to 10 do begin gotoxy(x0,y0); w:=i*j; write(i,'*',j,'=',w); y0:=y0+1; if j mod 10=0 then begin x0:=x0+xp;y0:=6;end;
Raczej lista mnożenia, tabliczka jak dobrze pamiętam to coś takiego
Var i,j : Integer;
Begin
for j:=1 to 10 do
begin
for i:=1 to 10 do Write(i*j:4);
Writeln
end;
Readln
End.