Алгоритм присваивающий переменную y значения наибольшей из трёх величин a, b и c. program n_10 var y, a, b, c: integer; begin writeln ('нахождение наибольшей из трёх величин'); write ('введите a, b, с> > '); readln (a, b, c); y: =a; if (b> y) then y: =b; if (c> y) then y: =c; writeln ('y=' , y) end. дополните эту программу так, чтобы её выполнение приводило к присваиванию переменной у значения большей из четырёх величин a, b, c и d.
var y, a, b, c, d: integer;
begin
writeln ('Нахождение наибольшей из четырёх величин');
write ('Введите a, b, с, d>>');
readln (a, b, c, d);
y:=a;
if (b>y) then y:=b;
if (c>y) then y:=c;
if (d>y) then y:=d;
writeln ('y=' , y)
end.