Membuat Program Perkalian 1 Sampai 10 Dengan T.Pascal

Pada x ini saya akan Meberitahu source code bagaimana cara membuat program PERKALIAN 1 to 10 dgan turbo pascal,y tentuna saya membuat ini hanya untuk membantu teman2 sekalian yang sedang di beri tugas oleh tugas.langsung aja neh source code nya.

uses crt;

var

 a,b,c : integer;

 begin

 clrscr;

    a:=0;

    while a < 1 do

    begin

    a:=a+1;

    b:=0;

    while b < 10 do

    begin

    b:=b+1;

    c:=a * b;

    writeln(a,':',b,'=',c:3);

    end;

    writeln;

    end;

    readln;

    end.