SCJ2 No 3

 program soal3;
 uses crt;
 var kali,angka,baris,hasil:integer;
 begin
        clrscr;
        write('Perkalian berapa:');
        read(kali);
        write('Sampe berapa:');
        read(angka);
        baris:=1;
        while (baris<=angka) do
        begin
                hasil:=baris*kali;
                write(baris,'*',kali,'=',hasil);
                baris:=baris+1;
                writeln;
        end;
 readkey;
 end.