Contoh Script pascal Mencari Bilangan

Pagi sobat netter semua...
pagi ini gue mau sharing script pascal lagi nieh, moga bermanfaat bagi kalian semua,
Langsung aja kita cek ke TKP...

Buatlah program dengan ketentuan sebagai berikut
* menggunakan 'if ... then' atau 'case of'
* OUTPUT : Masukan pilihan anda ...
    1. Mencari bilangan terbesar dari 3 buah bilangan
    2. Mencari bilangan ganjil

Itu soalnya, dan jawabannya adalah . . .

uses wincrt;
var pilih,sisa,bil,A,B,C : integer;
   
   
begin
writeln('1.Mencari bilangan terbesar dari 3 buah bilangan');
writeln('2.Mencari bilangan ganjil');
write('pilih no yang anda kehendaki ?  ');readln(pilih);
        begin
        if pilih=1 then
        begin
        write('ketikkan nilai A =');readln(A);
        write('ketikkan nilai B =');readln(B);
        write('ketikkan nilai C =');readln(C);
             if (A>B) and (A>C) then
             begin
             write('bilangan terbesar adalah A');
             end
             else
             if (C>A) and (C>B) then
             begin
             write('bilangan terbesar adalah C');
             end
             else
             begin
             write('bilangan terbesar adalah B');
             end
             end;
                if pilih=2 then
                write('masukan nilai bilangan anda kehendaki ?');readln(bil);
                if bil mod 2 = 0 then
                begin
                writeln('bilangan anda adalah genap');
                end
                else
                writeln('bilangan yg anda yang anda masukan adalah ganjil');
                end
             end.

Biar lebih mantap ane beri screen shootnya..

Ok dech, sekian postingan ane kali ini..
Banyak salah khilaf ane mohon maaf.. :)