Блок схему не нарисую,но решение скажу.
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 это полное решение задачи,если тебе конечно нужна была на паскале.
Если нужен алгоритм выдели его сама.
2) 768 *(25:3) *2^6 = 256*25*2^6 =25*2^14 бит = 25*2 Кбайта= 50 Кбайт
ИЛИ:
1) 1536 : 768 = 2 ( скорость уменьшилась в 2 раза)
2) 100 :2 = 50 Кбайт
ответ 50