Программирование разветвляющихся алгоритмов. Условный оператор (неполная форма). Язык программирования Паскаль

Дан алгоритм. Program N; var a, b, c, d, mx: integer; Begin readln(a, b, c, d); mx := a; if b > mx then mx := b; if c > mx then mx := c; if d > mx then mx := d; writeln(mx); End. Выберите верный вариант формулировки задачи, которую решает предложенный алгоритм.

Ученик записал фрагмент программы для решения задачи: "Два заданных числа одинакового знака увеличить на 10, оставить их без изменения в противном случае". Выберите все условия, которые могут быть записаны вместо многоточия в команде ветвления. Readln(x); Readln(y); If (...) Then Begin x := x + 10; y := y + 10; End;

Определите значение переменной c после выполнения следующего фрагмента программы. Ответ запишите в виде целого числа. a := 28; b := 5; c := a - 3 * b; if a - 3 * b > b then c := с - b;