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

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