program urutan bilangan penjumlahan angka 5

Program firman;

Uses Wincrt;

Var i:integer;

Begin

     For i:= 1 to 60 do

     Begin

      i:=i+4;

      write(' ',i);

      end;

End.

Layout

Share On