программы с If поТеме 5.1 (3)

program BIT;
var a,b,c,max: integer;
begin

  Writeln('Чтобы найти большее из трех просто введите эти числа: ');
  Readln(a,b,c);
  max := a;
  if (max < b) then
    max := b;
  if (max < c) then
    max:= c;
  writeln('Максимум из максимума: ', max);

end.