Belajar Pascal 2 (for)

Belajar Pascal 2

menggunakan for

contoh:
program hitung_jumlah_asli;
uses crt;
var jumlah, pencacah : byte;
begin
clrscr;
writeln('menghitung jumlah 10 bilangan asli yang pertama');
writeln('===============================================');
jumlah := 0;
for
pencacah := 1 to 10 do
jumlah := jumlah + pencacah;
writeln (' 1 + 2 + 10 =', jumlah);
readkey;
end.

hasil program