Belajar Pascal

Baru - baru ini saya mulai belajar bahasa pemrograman dan yang saya pelajari adalah pascal. Trus ada yang nyuruh saya bikin program pascal untuk perkalian dan pembagian tanpa menggunakan operator perkalian ataupun pembagian, binggung juga sih pertmanya.... tapi Alhamdulillah bisa selesai juga.... Mungkin ini sekedar yang bisa saya sharing ke temen - temen.... sekalian minta komentar dan kritik membangunnya....

USES CRT;

VAR BIL1, BIL2, BIL3, BIL4, HASIL, HASIL2, HASIL3, I:INTEGER;
JAWAB: CHAR;


BEGIN
REPEAT
CLRSCR;

WRITE('KETIK BILANGAN 1 : ');
READLN(BIL1);
WRITE('KETIK BILANGAN 2 : ');
READLN(BIL2);
WRITE('KETIK BILANGAN 3 : ');
READLN(BIL3);
WRITE('KETIK BILANGAN 4 : ');
READLN(BIL4);

{PERHITUNGAN BILANGAN 1 DIBAGI BILANGAN 2}
HASIL:=BIL1;
I:=1;

WHILE BIL1 > BIL2 DO

BEGIN
HASIL:= HASIL - BIL2;
I:=I+1;
END;


{PERHITUNGAN HASIL PEMBAGIAN BILANGAN 1 DAN 2 DIKALI BILANGAN 3}
HASIL2:=0;
HASIL:=I;
I:=0;
FOR I:= 1 TO BIL3 DO HASIL2:= HASIL2+HASIL;


{PERHITUNGAN HASIL PERKALIAN DARI HASIL PEMBAGIAN BILANGAN 1 DAN 2 DIKALI BILANGAN 3 DENGAN BILANGAN 4}
HASIL3:=0;
FOR I:= 1 TO BIL4 DO HASIL3:= HASIL3+HASIL2;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN(BIL1,' : ',BIL2,' x ',BIL3,' x ',BIL4,' = ',HASIL3);
WRITELN;
WRITELN;
WRITE('TEKAN HURUF Y UNTUK HITUNG LAGI: ');READLN(JAWAB);
UNTIL UPCASE(JAWAB) <> 'Y';

END.