Menampilkan bilangan genap dari angka 1 s/d 50

Untuk menampilkan bilangan genap yang dimulai dari angka 1 sampai dengan angka 50, susunan algoritmanya adalah sebagai berikut : 

Bilangan genap dari 1 sampai 50 = 2,4,6,8,10,12,14,16,18, …… 50

Catatan : bilangan apa saja yag dimod2=0 adalah bilangan genap

Untuk nilai I = 1 to 50 lakukan

      Jika nilai Imod2 = 0 maka

                        Cetak nilai

      Untuk program dalam bahasa pascal adalah :

uses crt;

var I : integer;

begin

clrscr;

  for I:= 1 to 50 do

begin

    if I mod 2= 0 then

       write(I:5);

end;

  Readln;

                  end.

Hasilnya :