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

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