Сделайте пожалуйста 2 вариант

Question

Сделайте пожалуйста 2 вариант

---

Answer 1

Объяснение:

program variant2;

var

a,b,c,y: Integer;

begin

WriteLn('введите значение b');

ReadLn(b);

a:=2*b;

c:=a+b;

if a>b then

begin

WriteLn('вывод: b', b);

WriteLn('вывод: c', c);

end

else

y:= a*b;

WriteLn('вывод: y',y);

end.