Program positif negative angka Dalam Turbo Pascal

Use crt ;

Var

            Angka: login;

            S:string;

            Ul:char;

Begin

Repeat

Clrs;

Write(‘masukkan angka :’); readln (angka) ;

If 0 =angka mod 2 then

Begin

S:=’genap’;

End

Else

Bgin

S:=’ganjil’;

End

Writeln (‘angka anda bernilai ….’, s);

Write (‘apakah anda ingin mencoba lagi (y,t) ….??’ ); readln (ul)

Until upcase (ul) () ‘y’ ;

End.