Помогите, пожалуйста. Нужно составить алгоритм. Даны числа a, b и с. Найти…

Блок схему не нарисую, но решение скажу. uses crt; var a,b,c,p: integer; beginwriteln ('Введите 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 это полное решение задачи, если тебе конечно нужна была на паскале. Если нужен алгоритм выдели его сама.