Contoh Program Pascal : Menghitung jumlah bilangan dan banyaknya data

Contoh program pascal untuk menghitung jumlah dari beberapa bilangan yang diinputkan beserta banyaknya data.
program JumlahRata2; 
uses wincrt;
var
n, i,byk,jum, bil : integer;
begin
Write(‘Masukkan nilai perulangan : ‘);readln(n);
Writeln;
for i := 1 to n do
begin
write(‘Bilangan ‘,i,’ = ‘);read(bil);
if bil >= 10 then
begin
byk := byk+1;
jum := jum+bil ;
end;
end;
writeln;
writeln(‘banyak bilangan yang >= 10 : ‘,byk);
writeln(‘jumlah bilangan yang >= 10 : ‘,jum);
end.

Tags: jumlah, pascal