Soru 16: Birden ona kadar sayıların çarpım tablosunu üreten program

 

{1den 10a kadar sayıların çarpım tablosu}

program carpim;

uses crt;

var

 i,j:integer;

begin

  clrscr;

  for i:=1 to 10 do

    begin

      for j:=1 to 10 do writeln(i,'x',j,'=',i*j);

      writeln('Devam etmek için Enter''a basın');

      readkey;

    end;

end.