Решите часть 3 плз( Паскаль)

Question

Решите часть 3 плз( Паскаль)

---

---

---

Answer 1

Var a, i, anew: integer;
begin
read (a);
for i:=1 to 2 do begin 
read (anew); 
if aend;
writeln (a);
end.