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.

use Rumah_Sakit_Sehat_Terus;

create table dokter(kode varchar(3), nip varchar(10), nama varchar(20), jenis_kelamin varchar(1), jam_praktek varchar(2), bidang varchar(20));

desc dokter;

create table perawat(kode varchar(3), nama varchar(20), jam_jaga varchar(2), jenis_kelamin varchar(1), bidang varchar(20));

desc perawat;

create table pasien(nama varchar(20), umur varchar(4), jenis_kalamin varchar(1), alamat varchar(40), masuk_hari_tanggal varchar(30), penyakit varchar(20));

desc pasien;

create table kamar(nomor varchar(4), nama varchar(20), jenis_kamar varchar(10), biaya varchar(15), kapasitas_pasien varchar(10));

desc kamar;

create table reka_medis(nama varchar(20), waktu varchar(2), penyakit varchar(15));

desc reka_medis;

create table pemeriksaan(nama varchar(20), penyakit varchar(15), dokter(20), ruang(10), hari_tanggal_bulan_tahun(20));

desc pemeriksaan;