program karakter bintang

program proc_KarakterBintang;

uses
wincrt;
var
a:integer;

procedure TulisBintang (n:integer);

var
i:integer;

begin
for i:= 1 to n do
begin
write ('*');
end;
writeln;
end;

begin
for a:= 1 to 7 do
TulisBintang (a);
end.


hasilnya bisa langsung di compile kawan....
monggo..... :-)


>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Menghitung hasil penambahan dari 5 bilangan.

Program Tambah;
uses
wincrt;
var
A, B, C, D, E, F : integer;
Begin
write('nilai A:');
readln(A);
write('nilai B:');
readln(B);
write('nilai C:');
readln(C);
write('nilai D:');
readln(D);
write('nilai E:');
readln(E);

F := A + B+C+D+E;
Write (F);

End.

hasilnya bisa langsung di compile kawan...
monggo..... :-)