Tugas Algoritma "Menampilkan Bilangan Genap dari angka 1 s/d 50"

6. Menampilkan bilangan genap dari angka 1 s/d 50
NilaiA=1
I=1 sampai 50, lakukan
• Cetak nilai A
• Jika A mod 2 = 0, maka nilai A = bilangan genap

jawab:
uses crt;
var I,A: integer;
begin
A:=1;
clrscr;
for I:= 1 to 50 do
begin
if I mod 2 = 0 then
write(I:5);
end;
Readln;
end.