программа для нахождения наименьшего и наибольшего из трех чисел в паскале

Program Pr1;
uses crt;
var a,b,c,max:integer;
begin
clrscr;
readln(a,b,c);
if a>b then max:=a
else max:=b;
if c>max then max:=c;
writeln(max);
end.