1-100 ARASI SAYLARIN TOPLAMINI BULAN PROGRAM


uses crt;
var
   i:byte;
   toplam:longint;
begin
     i:=0;
     toplam:=0;
     repeat
                i:=i+1;
           toplam:=toplam+i;
     until i=100;
     clrscr;
     writeln('saylarn toplam=',toplam);
     readln;
end.