Подробно расписать в Pascal и все. Само решение прикреплено. Задание: Что будет выведено...

Question

Подробно расписать в Pascal и все. Само решение прикреплено.

Задание: Что будет выведено на экран после выполнения фрагмента программы?
a:=10, b:=5, с:=6
if (a>b) and (b>c) then x=3*a+2*b+c
else x=5*a-b+c

---

Answer 1

Var
  a, b, c, x: integer;
begin
  write('Введите а, b и c: ');
  read(a, b, c);
  if (a > b) and (b > c) then
    x := 3*a + 2*b + c
  else
    x := 5*a - b + c;
  writeln('Результат: ', x, '.');  
end.