Изменить программу так, чтобы она вычисляла МАКСИМАЛЬНОЕ значение

program a2; var     a, b, c, max: real; begin     writeln('Введите три числа');     readln(a, b, c);     max := a;     if b > max then         max := b;     if c > max then         max := c;     writeln('max = ', max); end.