Membuat Program Nilai ala Turbo Pascal

       Untuk kali ini saya akan berikan contoh cara membuat program nilai ala turbo pascal

 

uses wincrt;
var
  Score1,Score2:real;
begin
  writeln('Insert 1st Score :');readln(Score1);
  writeln('Insert 2nd Score :');readln(Score2);
  if Score1>Score2 then
    writeln('The highest score :',Score1:4:2)
  else
    writeln('The highest score :',Score2:4:2);
end.