Написать программу, в которой пользователь вводит три числа, а программа определяет максимальное.

var  a, b, c, max: longint;begin  readln(a, b, c);  max := a;  if (b > max) then    max := b;  if (c > max) then    max := c;  writeln(max);end.