Iterasi dengan pascal

program berhitung;

uses
wincrt;

var
i,jumlah: integer;

begin
jumlah := 0;
for i := 0 to 100 do
jumlah := jumlah + i;
writeln('jumlah for = ', jumlah);

i := 0;
jumlah := 0;

while (i <= 100) do
begin
jumlah := jumlah + i;
Inc(i);
end;
writeln('jumlah while = ', jumlah);

i := 0;
jumlah := 0;

repeat
jumlah := jumlah + i;
Inc(i);
until (i>100);
writeln(jumlah)
end.