Question

Дополните предыдущую программу так, чтобы её выполнение приводило к присваиванию переменной y значения большей из четырёх величин a, b, c, d.

program maximum;
var y, a, b, c: integer;
begin
writeln ('Нахождение наибольшей из трех величин');
write ('введите a, b, c: ');
readln (a, b, c);
y:=a;
{Здесь нужно ввести команды проверки условия}
writeln ('наибольшее число: ', y)
end.