Какое число выведет программа begin

a:=5;

b:=8;

a:=5+a;

k:=a+b;

if a>b then

k:=k*3

else begin

k:=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