Verified answer

Если нужна проверка программы:

Входные данные:

• n1: 2
• n2: 1
• n3: 28

Выходные данные:

• Ваше число 2 четное: TRUE
• Ваше число 1  нечетное: TRUE
• Ваше число 28 кратно 7: TRUE

См скриншот 1

Если нужна аналогичная программа:

К примеру на проверку деления с остатком с ответом TRUE / FALSE:

Program Khamatdinovazifa;

Uses crt;

Var n1, n2 : integer;

   b1 : boolean;

Begin

CLRSCR;

   Write ('Введите делимое число: ');

   ReadLn (n1);

   Write ('Введите делитель числа: ');

   ReadLn (n2);

   b1 := (n1 mod n2 = 0);

   WriteLn ('Ваше число ', n1, ' делится на число ', n2 , ' без остатка: ', b1);

   WriteLn;

   ReadLn;

End.

См скриншот 2

Программа преподавателя:

Program name02;

Uses crt;

Var n1, n2, n3 : integer;

   b1, b2, b3 : boolean;

Begin

CLRSCR;

   Write ('Введите одно из чисел 2, 4, 6 ...: ');

   ReadLn (n1);

   b1 := (n1 mod 2 = 0);

   WriteLn ('Ваше число ', n1, ' четное: ', b1);

   WriteLn;

   Write ('Введите одно из чисел 1, 3, 5 ...: ');

   ReadLn (n2);

   b2 := (n2 mod 2 = 1);

   WriteLn ('Ваше число ', n2, ' нечетное: ', b2);

   WriteLn;

   Write ('Введите одно из чисел 7, 14, 21 ...: ');

   ReadLn (n3);

   b3 := (n3 mod 7 = 0);

   WriteLn ('Ваше число ', n3, ' кратно 7: ', b3);

   ReadLn;

End.

Проверить можно в данном компиляторе:

onlinegdb.com/online_pascal_compiler