Сколько слов длины 4, начинающихся с согласной буквы, можно составить

Составить программу, в которой с помощью генератора случайных чисел получены три числа. Распечатать их в порядке получения, затем,если сумма первого и второго числа меньше третьего числа,то третье число заменить на полусумму первог и второго чисел и вновь распечатать значения всех чисел.

программу на Паскале пожалуйста помогите срочно

Где начать цикл?
с клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".

Program Pr1;
var s, s1, s2:string;
count, n, i:integer;
begin
writeln('введите фразу');
readln(s);
count:=0;
for i:=1 to length(s) do
begin
n:=Pos(' ', s);
s1:=Copy(s,1,n-1);
s2:=Copy(s1,1,1);
if s2='а' then
count:=count+1;
Delete(s,1,1);
end;
writeln(count);
end.

гласные или согласные буквы). Буквы е и ё объединены. Среди слов "крейсер", "уловка", "шалаш", "электричество", "преподаватель", "молоко" есть слова, зашифрованные следующими последоваетльностями: 2732101263310132, 391002810039, 104281032127100, 291032810327103. Каким кодом будет зашифровано слово "роутер" ?

печать.