Program Tampilkan_Angka;

uses crt;
var x, y, z : byte;
begin
clrscr;
z:=8;
writeln;
for x:= 0 to 1 do
write(' Bilangan Genap : ');
begin
for y:= 0 to 3 do
begin
write(z:4);
z:=z-2;
end;
z:=z+7;
writeln;
end;
readln;
end.