Ответ:Program few2;

Uses crt;

Var a, b, y, min: integer;

Begin

ClrScr;

Writeln('y:= min+ 2* min+ b');

Write('Значение a: ');

Readln(a);

Write('Значение b: ');

Readln(b);

If a>b then

min:=a;

If a<b then

min:=b;

y:= min+ 2* min+ b;

Begin

If a=b then

Writeln('Невозможно найти значение...')

else

Begin

Writeln('min= ', min);

Writeln('y= ', min, '+ 2* ', min, '+ ', b);

Writeln('Y= ', y);

End;

End;

Readln;

End.

Объяснение: