бесконечный цикл:
(л-о-з-в)
Var
n,d1,d10,d100:integer;
begin
Write('Введите натуральное трехзначное число: '); Read(n);
d1:=n mod 10; d100:=n div 100;
d10:=(n div 10) mod 10;
if (d1 mod 2 = 0) or (d10 mod 2=0) or (d100 mod 2=0)
then Writeln('Есть четная цифра')
else Writeln('Нет четных цифр')
end.
Var t,v:integer;
begin
readln(t,v);
writeln(v*t);
<span>end.</span>
1 -6 Февраля. / Понедельник.
2 - Иа.
3 - число "1"
4 - Печка.
5 - Клюв.
6 - Царь.
7 - Марка.
8 - 10 гласных,21 согласная буква.(Всего 33 буквы). - Твёрдый,мягкий знак - не согласная не гласная.