Решите в программе Паскаль эту задачу. Вводятся три целых числа. Найти из них максимальное значение.
Например 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; write(m) end.