Решите пожалуйста.........информатикаааааа

Question

Решите пожалуйста.........информатикаааааа

---

Answer 1

Var a,b:integer;
begin
writeln('Введите 2 целых числа');
readln(a,b);
if (a>10) and (b>10) then writeln(a*b);
 else writeln('Введены некорректные данные');
end.