Для какого из следующих слов истинно высказывание: НЕ(первая буква гласная) И(вторая буква согласная) И(предпоследняя буква согласная)?
1)азавак 2) шнауцер 3) слюги 4) уиппет

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

5. Вычислить значение переменной S:

a:=2;

b:=3;

S:=7;

[ЕСЛИ] a−b > 0, [ТОГДА] S:=a

[ИНАЧЕ] S:=b; S:=S+a

2−3 = −1  ⇒ a−b < 0 — выполняется оператор [ИНАЧЕ]

S=3; S:=3+2; S=5

ответ: б) 5

6. Вычислить значение переменной S:

a:=1;

b:=4;

C:=5;

S:=0;

[ЕСЛИ] S<b {ИЛИ} a>b, [ТОГДА] S:=a

[ИНАЧЕ] S:=b; S:=S+c

0<4, 1<4  ⇒ a<b — выполняется оператор [ИНАЧЕ]

S=4; S:=4+5; S=9

ответ: в) 9.

7. Вычислить значение переменной X:  

A:=5;

B:=2;

C:=3;

[ЕСЛИ] A>C {И} A<B, [ТОГДА] X:=5*A-5*B

[ИНАЧЕ] X:=A+B

5>3, 5>2 ⇒ A>B — выполняется оператор [ИНАЧЕ]

X:=5+2; X=7

ответ: г) 7.