Решите в программе паскаль эту . вводятся три целых числа. найти из них максимальное значение.

Например

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.