Помогите пожалуйста составить программу!

Question

Помогите пожалуйста составить программу!

---

Answer 1

Var
  a, b: integer;

begin
  write('введите a,b ');
  readln(a, b);
  if ((a + b) > 0) and ((a + b) mod 10 = 3) then
    writeln((a + b) * 2)
  else
    writeln(a + b);
end.

Тест №1
введите a,b 10 3
26

Тест №2
введите a,b 5 6
11

Comments

Спасибо вам огромное!

---

Пожалуйста, успехов!