Нарисуйте блок схему
program prog;
uses crt;

var s: char;

begin
clrscr;

write('letter: ');
readln(s);
case s of
'ё', 'ё','у','у','е','е','ы','ы','а','а','о', 'о','э','э','я','я','и','и','ю','ю': writeln('yes');
else writeln('no');
end;
end.

Program v1;
var a,b,c: real;
begin
readln (a,b,c);
If c > a+b then writeln ( 'Такого треугольника не существует');
If a > c+b then writeln ( 'Такого треугольника не существует');
If b> a+c then writeln ( 'Такого треугольника не существует');
If a=b and a=c  then writeln ('Этот треугольник равносторонний');
If a=b or a=c or b=c then writeln ('Этот треугольник равнобедренный');
If a = scrt ( b*b + c*c) then writeln ('Этот треугольник прямоугольный');
If b = scrt (a*a + c*c) then writeln ('Этот треугольник прямоугольный');
If c = scrt (a*a + b*b) then writeln ('Этот треугольник прямоугольный');
end. 

Написал программу с комментариями, сами составите алгоритм
int main () {
const int n = 10;
int massive[n];
int maxElem;
int numberOfMaxElem;
for(int i=0;i<n;++i) {
   cin>>massive[i]; // вводим массив из 10 элементов
}
maxElem = massive[0]; // максимальный элемент - первый, присваиваем 
for(int i=0;i<n;++i) {
    if(massive[i]>maxElem) { // если максимальный элемент меньше
        maxElem = massive[i];//чем данный, то данному присваеваем //максимальный  
        numberOfMaxElem = i; //определяем номер макс элемента
    }
}
int multElemBeforeMax;
for(int j=0;j<numberOfMaxElem;++j) { 
   multElemBeforeMax *= massive[j]; // произведение элементов до максимального
}
int countElemBehindMax;
countElemBehindMax = n-numberOfMaxElem; // кол-во элементов после максимального
cout <<multElemBeforeMax; // вывод на экран
cout <<countElemBehindMax;
return 0;
}