Pascalda Çarpım Tablosu

program carpim_tablosu;
uses crt;
var
i,j,k,sat:byte;
begin
clrscr;
k:=5;
sat:=2;
gotoxy(28,1);
for i:=1 to 10 do
begin
for j:=1 to 10 do begin
gotoxy(k,sat+j);
write(i:2,'x',j:2,':',i*j:3);
end;
k:=k+14;
if i = 5 then begin k:= 5;
sat:= 13;
end;
end;
readln;
end.