Помогите пожалуйста. Решение нужно сейчас срочно!!! 1.вывести на экран наибольший рост в классе из 10 учеников

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("Наибольший рост у третьего ученика!");