составьте программу которая находит махимальное из четырёх введенных с клавиатуры чисел a,b,c,d и выводит его на экран

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