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

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

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

. . .

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

readln(a, b, c, d) ;

. . .

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