Program Perkalian pada Pascal

Berikut adalah contoh program perkalian tanpa mengunakan operator "*" pada pascal:


program kali;
uses crt;
var  x,y,i,hasil: integer;
begin
clrscr;
write('masukkan bilangan ke-1: ');readln(x);
write('masukkan bilangan ke-2: ');readln(y);
if (x<0) and (y<0) then begin
 x:=-x;
 y:=-y;
 i:=1;
 while i<=x do
  begin
  hasil:=hasil+y;
  inc(i);
  end;
end else if (x<0) then
 begin
 x:=-x;
 if (y<0) then
  y:=-y;
  i:=1 ;
  while (i<=x) do
   begin
   hasil :=hasil+y;
   inc(i);
   end;
 if y>0 then
   hasil:=-hasil;
end else begin
 i:=1;
 while (i<=x)do
  begin
  hasil:= hasil+y;
  inc(i);
  end;
 end;
writeln('hasil perkaliannya: ',hasil);
readln;
end.

nb: program diatas hanya dapat mengoperasikan perkalian integer ^^