uses crt;
var
a,b,c:integer;
begin
repeat
clrscr;
writeln('=======================');
writeln;
writeln('selamat datang di program ini');
writeln;
writeln('ada beberapa program:');
writeln('1.bil. ganjil');
writeln('2.bil. genap');
writeln('3.bil. terbesar');
writeln('4.keluar');
readln;
writeln('===================');
writeln('silahkan pilih:');
readln(a);
begin
case a of
1:begin
writeln('masukan nilai:');readln(a);
writeln('masukan nilai:');readln(b);
writeln;
for c:= a to b do
else
if c mod 2=1 then
writeln('bil.ganjil:',c);readln;
end;
2:begin
writeln('masukan nilai:');readln(a);
writeln('masukan nilai:');readln(b);
writeln;
for c:= a to b do
else
if c mod 2=0 then
writeln('bil.genap:',c);readln;
end;
3:begin
writeln('masukan nilai:');readln(a);
writeln('masukan nilai:');readln(b);
writeln;
if a>b then
writeln('terbesar:',c);readln;
else
if b>a then
writeln('terbesar:',c)readln;
end;
readln;
until a=4
end;
end.
