Составить программу вычисляющее наибольшее из 3 заданных чисел(паскаль)

var   a, b, c, m : integer; begin   read (a, b, c);   m := a;   if b > m then m := b;   if c > m then m := c;   writeln (m); end.   ps так корректнее, потому что в первом ответе не учтено равенство чисел.