Помогите пожалуйста решить 3 задачу заранее спасибо)))

Question

Помогите пожалуйста решить 3 задачу
заранее спасибо)))

---

Answer 1

Var a, b:integer;
Begin
Read(a, b) ;
If a+b=10 then write('молодец') else write(что случилось') ;
End.