Какое число выведет программа begina:=5;b:=8;a:=5+a;k:=a+b;if a>b thenk:=k*3else begink:=k-3;k:=k div 6;end;writeln(k);end.​

54

Объяснение:

             Вычисления                a      b      k

a:=5;              а=5                        5      -       -        

b:=8;              b=8                        5      8      -

a:=5+a;        a=5+5                      10     8      -  

k:=a+b;        k=10+8                      10    8     18

if a>b then     да, 10>8, значит мы выполним следующее действие, а не под веткой "else"  

k:=k*3       k=18*3                        10     8     54  

else begin  

k:=k-3;  

k:=k div 6;  

end;  

writeln(k);    напечатаем значение k. Это 54