введите три целых числа a и b и c найти наибольшее и наименьшее из них

program hg; var a,b,c,max:real; begin writeln('Ââåäèòå òðè ÷èñëà'); read(a,b,c); if a>b then begin max:=a; end else begin if b>c then begin max:=b; end else begin max:=c; end; writeln('Íàèáîëüøåå ÷èñëî ',max); end; end.