Паскаль, сделать через while, а не через break
Создать одномерный массив В изN элементов. Элементами массива являются целые случайные
числа, принадлежащие интервалу от 0 до 10.Найти элемент массива равный 1. Если таких
элементов несколько, то вывести на экран номер первого элемента.
(Например, массив 6 1 3 3 2 3 4 5 1 2 2 5 5 0 0, номер 2)

1задача. Сумма цифр в 4-зн. числе
1) Начало
2) Ввод 4-значного числа N. Проверка, что 999 < N < 10000.
3) Вычисление отдельных цифр. (Далее [A] - это целая часть числа A).
3.1) A4 = [N/1000] (тысячи)
3.2) A3 = [ (N - A4*1000)/100) ] (сотни)
3.3) A2 = [ (N Mod 100)/10 ] (десятки, N Mod 100 - это остаток от деления N на 100)
3.4) A1 = N Mod 10 (единицы)
4) Сумма S = A1+A2+A3+A4
5) Вывод S
6) Конец.

2 задача. Двузначное число палиндром - это число, которое читается с конца и сначала одинаково. Для двузначных чисел это значит, что число состоит из двух одинаковых цифр.
1) Начало
2) Цикл по N от 10 до 99
3) Вычисление цифр.
3.1) A2 = [N/10] (десятки)
3.2) A1 = N Mod 10 (единицы)
4) Если A1 = A2, то Вывод N.
5) Конец цикла по N
6) Конец.

var
i:integer;
s:string;
const
glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю'];
beginwrite ('Vvedite predlohenie: ');
readln (s);
i:=1;
while i<=length (s) do     
begin           
if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then           
begin             
while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do                   
begin                         
write (s[i]);                         
i:=i+1;                   
end;             
writeln;           
end;         
i:=i+1;     
end;
readln;
end.