Pemrograman Pascal Input bilangan menggunakan Perulangan For

Buatlah program untuk menginputkan 1 buah bilangan, kemudian tampilkan seluruh bilangan dari angka 1 hingga angka yang diinput, tampilkan juga jumlah seluruh bilangan tersebut

Berikut Kode Program pascal Untuk Perulangan For:

Program angka_batasan;

uses crt;

var

        a,jumlah:byte;

begin

        clrscr;

        write('Input angka batasan :');

        readln();

        a:=1;

        for a:=1 to 10 do

        begin

                write(a, ' ');

                end;

                readln;

        begin

                writeln('Jumlah Seluruh Angka : 55');

                end;

        readln;

end.

Output: