Pascalda Büyük Sayı Küçük Sayı Bulan Program, Pascalda Sayı Karşılaştırma

Uses crt;
var
     A,B,C:Byte;
Begin
     clrscr;
     Write('A Sayısı='); Readln(A);
     Write('B Sayısı='); Readln(B);
     Write('C Sayısı='); Readln(C);

     If (A>B) AND (A>C) Then Writeln('A Büyük')
     else if (B>A) And (B>C) Then Writeln('B Büyük')
     else Writeln('C Büyük');
     Readln;
End.