Var a,b,c,d,max:integer;
begin
read(a);
max:=a;
read(b);
if b>max then
max:=b;
read(c);
if c>max then
max:=c;
read(d);
if d>max then
max:=d;
writeln(max);
<span>end.</span>
1. 5
2. 79
3. x=1, y=0 (см фото)
Объяснение:
Например:дети 40кг одежда 3кг сумка 2кг вещи 5 кг удачки 10кг обувь 1 кг рыба 20 кг 40+3+2+5+1+20=71 вот так вроде
Https://support.microsoft.com/ru-ru/help/17073/windows-using-keyboard