Progam Pascal Menentukan Nilai Tertinggi

program nilai;
uses wincrt;
var a,b,c:integer;
ulang:char;
begin
repeat
write ('Masukkan Nilai A: '); readln(a);
write ('Masukkan Nilai B: '); readln(b);
write ('Masukkan Nilai C: '); readln(c);

if (a > b) and (b > c) and (a > c) then
writeln ('Nilai A Merupakan Nilai Tertinggi Dan Nilai C Merupakan Nilai Terendah') else
if (a > b) and (c > b) and (a > c) then
writeln ('Nilai A Merupakan Nilai Tertinggi Dan Nilai B Merupakan Nilai Terendah') else
if (a < b) and (b < c) and (a < c) then writeln ('Nilai C Merupakan Nilai Tertinggi Dan Nilai A Merupakan Nilai Terendah') else if (a > b) and (b < c) and (a < c) then writeln ('Nilai C Merupakan Nilai Tertinggi Dan Nilai B Merupakan Nilai Terendah') else if (a < b) and (b > c) and (a < c) then writeln ('Nilai B Merupakan Nilai Tertinggi Dan Nilai A Merupakan Nilai Terendah') else if (a < b) and (b > c) and (a > c) then
writeln ('Nilai B Merupakan Nilai Tertinggi Dan Nilai C Merupakan Nilai Terendah');
writeln ('Mau Mengulangi? [Y/T]'); ulang:=upcase(readkey);
clrscr;
until ulang <> 'Y';
end.