Помогите, прошу.Паскаль. Определите, является ли заданное число А четным трехзначным...

Question

Помогите, прошу.Паскаль.
Определите, является ли заданное число А четным трехзначным числом.

Answer 1

Var a: integer;
begin
write('Введите a: ');
read(a);
if (a mod 2 = 0) and (a>99) and (a<1000) then<br>writeln('Является.') else writeln('Не является.'); end.