Menampilkan Penjulnahan

Menampilkan Penjumlahan 1 sampai 10 Menggunakan Perulangan
Nih Scriptnya













program penjumlahan;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 i,A,JUM:integer;
begin
  I:=1;JUM:=0;
 while I<= 10 do
    BEGIN
      A:=I;
      JUM:=JUM+A;
      Writeln(A);
      I:=I+1;
    END;
    WRITELN('1+2+3.......+10=',JUM);
    READLN;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Ketikkan pada error console delphi seperti Ini

Maka Hasilnya akan seperti Ini :