Program Pascal

Program jumlah menghitung 5 bilangan dengan while-do
uses wincrt ;
var
a,s,n,j: integer;
begin
n:=4;
while s<=n do
begin
s:= s+1;
write('Bilangan yang ke ',s,' :'); readln (a);
j:=j + a;
end;
writeln ('Jumlah = ',j);
end.

Program jumlah menghitung 5 bilangan dengan repeat-until
uses wincrt;
var
a,b,s,j: integer;
begin
s:=5;
b := 1;
repeat
begin
write('Bilangan Yang Ke ',b,' :'); readln (a);
j:=j + a;
b:= b+1;
end;
until b > s;
writeln ('Jumlah = ',j);
end.

Program jumlah menghitung Rata-rata dari 100 bilangan dengan while-do
uses wincrt ;
var
k,n,x,j: integer;
rt:real;
begin
n:=99;
k:=0;
while k<=n do
begin
k:= k+1;
write('Bilangan Yang ke ',k,' :'); readln (x);
j:=j + x;
end;
rt := j / (n+1);
writeln ('Rata-Ratanya Adalah = ',rt:2:0);
end.

Program jumlah menghitung Rata-rata dari 100 bilangan dengan repeat-until
uses wincrt;
var
a,b,s,j: integer;
rt:real;
begin
s:=100;
j := 0;
b := 1;
repeat
begin
write('Bilangan Yang Ke ',b,' :'); readln (a);
j:=j + a;
b:= b+1;
rt:=j/s;
end;
until b > s;
writeln ('Rata-ratanya Adalah = ',rt:2:0);
end.