yuk,Belajar Konsep Pemograman di mesran.blogspot.com

uses crt;

var

nilai : byte;

i,j : byte;

hasil : integer;

k: char;

begin

clrscr;

write ('Input Nilai:') ; readln (nilai);

for i: = 1 to 5 do

hasil :=1*2*3*4*5;

k:='=';

write ('Hasil:1*2*3*4*5',k,hasil);

readln;

end

Tampilan Hasil Program: