Pemograman
Hitunglah penjumlahan bilangan antara 1..10

Jawab

USES CRT
VAR
       J.    : Byte;
       Totj: Integer;
Begin
          CLRSCR;
           Totj. :=0;
            For   J :=1TO 10 DO
            Totj :=Totj + j;
   Write('Total j : ',Totj );
END.