Вывести на экран наибольший рост из трех учеников. Паскаль

Вывести на экран наибольший рост из трех учеников. Паскаль.

  • program Zadacha1; 
    var a,b,c:integer; 
     begin 
       writeln("Введите рост первого ученика: "); 
       read(a); 
       writeln("Введите рост второго ученика: "); 
       read(b); 
       writeln("Введите рост третьего ученика: "); 
       read(c); 
         If (a>b) and (a>c) then writeln("Наибольший рост у первого ученика!"); 
         If (b>a) and (b>c) then writeln("Наибольший рост у второго ученика!"); 
         If (c>a) and (c>b) then writeln("Наибольший рост у третьего ученика!"); 
     end.