Program PSB SMA Ver.1 Pascal

uses wincrt;

var a,b,c,d,e,f :integer;

var g :integer;

begin

writeln;

writeln(‘Program PSB SMA terhadap nilai UAN mu… ‘);

writeln(‘Masukkan nilai Ujian mu: (Rate:00.00)’);

writeln(‘Nilai Biologi mu ? ‘); readln(a);

writeln(‘Nilai Fisika mu ? ‘); readln(b);

writeln(‘Nilai Kimia mu ? ‘); readln(c);

writeln(‘Nilai Matematika mu ? ‘); readln(d);

writeln(‘Nilai Bahasa Indonesia mu ? ‘); readln(e);

writeln(‘Nilai Bahasa Inggris mu ? ‘); readln(f);

begin

g := 6 ;

if ((a+b+c+d+e+f)/g)>=60.00 then writeln(‘Kamu masuk SMA N 60 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=70.00 then writeln(‘Kamu masuk SMA N 46 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=75.00 then writeln(‘Kamu masuk SMA N 70 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=77.00 then writeln(‘Kamu masuk SMA N 3 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=80.00 then writeln(‘Kamu masuk SMA N 55 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=85.00 then writeln(‘Kamu masuk SMA N 28 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=88.00 then writeln(‘Kamu masuk SMA N 8 Jakarta..’) else writeln(‘Hayoo.. dimana kamu??’);

end;

writeln;

writeln(‘Selamat bagi kamu yang sudah aman…’);

end.