Помогите, пожалуйста.  нужно составить алгоритм. Даны числа a, b и с. Найти максимальное из этих чисел, результат записать в переменную p. Нарисовать блок - схему.

Блок схему не нарисую,но решение скажу.   uses crt; var a,b,c,p:integer; begin writeln('Введите a,b,c'); readln(a,b,c); if (a>b) and (a>c) then   begin  writeln('a большее');  p:=a; writeln('Т.к a большее,то в p записываем ',a);  end; if (b>a) and (b>c) then   begin   writeln('b большее');  p:=b; writeln('Т.к b большее,то в p записываем ', b);  end; if (c>a) and (c>b) then   begin   writeln('c большее');   p:=c; writeln('Т.к c большее,то в p записываем ',c);  end; end.   P.s это полное решение задачи,если тебе конечно нужна была на паскале. Если нужен алгоритм выдели его сама.