Паскаль. Найти max из 3-х чисел

uses crt; var  a, b, c, max: integer;begin  readln(a,b,c);  writeln(a, '   ', b, '   ', c);  max := a;  if max < b then max := b;  if max < c then max := c;  writeln('max= ',max);end.