PASCAL TUNJANGAN KERJA

program tunjangankerja1;
uses wincrt;
var
   NIK,Nama: string;
   golongan,mk: integer;
   tk: real;
begin
clrscr;
 write('NIK=');readln(NIK);
 write('Nama=');readln(Nama);
 write('golongan=');readln(golongan);
 write('mk=');readln(mk);
If (golongan = 1)and (mk<=2)then
writeln ('tk = 200000')
else if (golongan = 1)and (mk>2)then
writeln ('tk = 350000')
else if (golongan = 2)and (mk<=4)then
writeln ('tk = 500000')
else if (golongan =2)and (mk>4)then
writeln ('tk = 750000')
else
Writeln('golongan yang diinput tidak ada');
readln;
end.

Read More