Блок схему не нарисую,но решение скажу.

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

Если нужен алгоритм выдели его сама.