Рассмотрите блок-схему. Запишите данный алгоритм на языке программирования очень

a = int(input())

while a > 11:

   a = a/2

a = a+76

print (a)

ошибок несколько:

1. нету ввода a,b,c (команда read)

2. в каждом if после then ты делаешь три присваивания, их надо обернуть в begin - end

3. не понятна логика if-then-else. например, после if b> c then у тебя два else. используй отступы, чтоб было нагляднее, например:

if b> c then  

      begin

          min: = c;  

          avg: = b;  

          max: = a;

      end

    else  

      begin

          min : = b;  

          avg : = c;  

          max : = a

      end

ещё, чтобы сделать все эти проверки нагляднее, можешь попробовать использовать такую конструкцию:

if (a> b) and (b> c) then  

    begin

        min: = c;  

        avg: = b;  

        max: = a;

    end

тогда тебе не будут нужны else и ты в них не запутаешься.

4.   переменные min, avg, max должны быть описаны в секции var

5. в строке writeln ('минимальное число= ',min, среднее число= ', avg 'максимальное число= ', max) пропущена кавычка перед словом "среднее" и запятая после "avg"

6. нужна точка с запятой в конце строки writeln

*****************************

у меня на паскаль авс работает:

program a3;  

var  

a, b, c, min, avg, max: integer;  

begin  

write('a = '); readln(a);

write('b = '); readln(b);

write('c = '); readln(c);

  if (a> b) and (b> c) then begin min: =c; avg: =b; max: =a; end;

  if (a> c) and (c> b) then begin min: =b; avg: =c; max: =a; end;

  if (b> a) and (a> c) then begin min: =c; avg: =a; max: =b; end;

  if (b> c) and (c> a) then begin min: =a; avg: =c; max: =b; end;

  if (c> a) and (a> b) then begin min: =b; avg: =a; max: =c; end;

  if (c> b) and (b> a) then begin min: =a; avg: =b; max: =c; end;

writeln ('минимальное число= ',min, '   среднее число= ', avg, '   максимальное число= ', max);  

end.