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(kode varchar(5), nip varchar(5), nama varchar(30), spesialis varchar(20), hari_praktek varchar(23), jam_paraktek varchar(15));

desc dokter;

create table perawat(kode varchar(5), nama varchar(30),  jenis_kelamin varchar(2), bagian varchar(20), sift varchar(23));

desc perawat;

create table pasien(nomer varchar(5),  nama varchar(30), jenis_kelamin varchar(2), alamt varchar(23), ruang varchar(15));

desc pasien;

create table reka_medis(nomer varchar(5), nama varchar(30), umur varchar(2), alamat varchar(23), penyakit varchar(25), dokter varchar(23));

desc reka_medis;

create table kamar(nomer varchar(5), nama_kamar varchar(30), kelas varchar(6), biaya varchar(23));

desc kamar;

create table pemeriksaan(nomer varchar(5), nama varchar(30), penyakit varchar(20), kode_dokter varchar(6), poli varchar(25));

desc pemeriksaan;