Pemrograman Pascal Deret kelipatan 4 menggunakan Repeat Until

Membuat Program untuk Menginput kelipatan 4 menggunakan Repeat Until

Inputan

Program Repeat_until;

uses crt;

var

        i : integer;

begin

        clrscr;

        i:=4;

        writeln('Nama : Farhan Misbahul Hayat');

        writeln('Npm  : 202143502440');

        writeln('>>> Program Repeat Until <<<');

        writeln('==============================');

        write('Input angka yang diinginkan : ');

        readln(i);

        writeln('Bilangan kelipatan 4 antara 0 - 100 : ');

        repeat

                begin

                        write(i, ' ');

                        i:=i + 4;

                end;

                until i > 100;

        readln;

end.

Hasil Output

sekian tengkyu ges