Для изготовления известково – цементного состава необходимо А% известкового теста, В% белого цемента, С% поваренной соли, D% - пигмента, остальное составляет вода. Составить алгоритм для расчёта необходимого количество воды F (кг) при приготовлении Q (кг) состава. Составить блок схему и программу на языке Паскаль

Объясняю: нужно найти сумму каждого участника, после чего найти максимальное значение и вывести его на экран. 

Сначала мы вводим эти самые , потом складываем. Далее Sort3(Iv,Pet,Sid) - это функция. Если вы не знакомы с функциями, то просто перерисуйте вместо этого укрупненного блока все, что на следующей странице, вместо переменных а, в и с подставляя те переменные, которые вы используете для хранения суммы участников. 

Что делает функция Sort3: он сортирует по убыванию значения, хранящиеся в переменных а,в и с. После чего для того, чтобы получить максимальное значение, нам достаточно вывести первый элемент - а. Функция Swap  выполняет обмен значений переменных. Sort2 - сортирует два элемента. Она вс для Sort3. 

В основной программе вместо переменных а,в и с использовались переменные Iv, Pet и Sid. При неиспользовании функций подставляйте их. 

Можно использовать простые развилки и не заморачиваться с Sort3, но выходит неэффективно, некрасиво.При увеличении числа участников количество развилок вырастет в несколько раз - оно вам надо? Проще отсортировать. 

1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.

2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.

3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.