pascal

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.

पास्कल 2

uses crt;
var
a,b,c:integer;
begin
textcolour(11);
repeat
writeln('==================');
writeln;
writeln('selamt datang di program kalkulator');
writeln;
writeln('ada beberapa contoh:');
writeln('1.pertambahan');
writeln('2.pengurangan');
writeln('3.perkalian');
writeln('4.pembagian');
writeln('5.keluar');
readln;
writeln('==================');
readln;
writeln('silahkan pilih');
readln(a);
writeln;
case a of
1:begin
writeln('masukan bilangan:');readln(a);
writeln('masukan bilangan:' );readln(b);
writeln;
if c:=a+b;
writeln('hasil:',c);readln;
end;
2:begin
writeln('masukan bilangan:');readln(a);
writeln('masukan bilangan:');readln(b);
writeln;
if c:=a-b;
writeln('hasil:',c);readln;
end;
3:begin
writeln('masukan bilangan:');readln(a);
writeln('masukan bilangan:');readln(b);
writeln;
if c:=a*b;
writeln('hasil:',c);readln;
end;
4:begin
writeln('masukan bilangan:');readln(a);
writeln('masukan bilangan:');readln(b);
writeln;
if c:=a/b;
writeln('hasil:',c);readln;
end;
begin
writeln('terima kasih');
readln;
until a=5
end;
end.