Задача №1 Найти max (x, y)+5max – это максимальное) Задача №2 Вычислить min (a+b+c, a*b*c) — 4

//первая программаvar x, y: integer; begin write ('x='); readln (x); write ('y='); readln (y); if x > y then writeln ('Max (', x, ', ', y, ')+5=', x+5) else writeln ('Max (', x, ', ', y, ')+5=', y+5) end. //вторая программаvar a, b, c: integer; begin write ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); if a+b+c < a*b*c then writeln ('Min (a+b+c; a*b*c) — 4=', a+b+c — 4) else writeln ('Min (a+b+c; a*b*c) — 4=', a*b*c — 4) end.