Question

решите задачу по информатике​

Answer 1

Ответ:

напишу строки, которые изменились

y, a, b, c, d : integer;

...

writeln('ввод a b c d') ;

readln(a, b, c, d) ;

...

if (d>y) then y:=d;

Answer 2

var

 y,a,b,c,d:integer;

begin

  writeln('нахождение большего из 3 чисел');

  writeln('ввод чисел a,b,c,d');

  readln(a,b,c,d);

  y := a;

  if (b > y) then y := b;

  if (c > y) then y := c;

  if (b > y) then y := d;

  writeln('y = ', y);

end.