Page 124 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

Writeln;

Writeln('Nama : ____________________');
Writeln('NIM : __________');

Writeln;

end;
procedure Baca_Data;

begin

Write('Masukkan bilangan pertama : ');
Readln(Bil_1);

Write('Masukkan bilangan kedua : ');
Readln(Bil_2);

Writeln;

end;
function Kali(A,B : integer) : integer;

var

I,J : integer;
begin

J := 0;
for I := 1 to B do J := J + A;

Kali := J;

end;
procedure Kalikan(A,B : integer; var C : integer);

var

I : integer;
begin

C := 0;

for I := 1 to B do C := C + A;
end;

begin

ClrScr;
Awal;

Baca_Data;

Writeln(Bil_1:3,' x ',Bil_2:3,' = ',Kali(Bil_1,Bil_2):5);