Program_GanjilGenap
Var
Bil: Integer;
Begin
If Bil mod 2=0 then
Writeln ("Bilangan Genap");
Else
Writeln("Bilangan Ganjil")
End If;
End.
Tidak ada komentar:
Posting Komentar