var

a : Integer;

ket : String;

begin

a := StrToInt(edit1.Text);

if (a mod 0) then

    if (a>=0) then

        ket : ‘Genap Positif’;

    else

        ket : ‘Genap negatif’;

else

     if (a<=0) then

         ket : ‘Ganjil Negatif’;

     else

         ket : ‘Ganjil Positif’;

edit2.Text := ket;

end;

end.

 create table dokter (nip varchar(5),  jenis bidang varchar(20), hari_praktek varchar(10), jam praktek  varchar(12));

desc dokter;

create table perawat(nama varchar(25), bidang varchar(26), jam_jaga varchar(15));

desc perawat;

create table pasien(nama varchar(30), umur  varchar(7), alamat varchar(30), tanggal_masuk varchar(20));

desc pasien;

create table reka_medis(nama_pasien varchar(30), umur varchar(4), penyakit varchar(20), dokter varchar(20));

desc reka_medis;

create table kamar(nama_kamar varchar(20), kelas varchar(10), biaya varchar(30));

desc kamar;

create table pemeriksaan(nama_pasien varchar(30), penyakit varchar(25), dokter varchar(30), poli varchar(27));

desc pemeriksaan;