Блок схему не нарисую,но решение скажу.
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 это полное решение задачи,если тебе конечно нужна была на паскале.
Если нужен алгоритм выдели его сама.