Дополните предыдущую программу так, чтобы её выполнение приводило к присваиванию переменной 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.

Marina12971    1   28.04.2020 07:20    14