Помогите решить номер 1 и 2

Question

Помогите решить номер 1 и 2

---

Answer 1

Var   A,B,C:integer; beginA:=50;B:=20;A:= 2* B - 30;if A>B then C:= A + B else C:= 2* A;write(C);end.