Нужно нарисовать скатывающийся по ступенькам шар в pascal abc. , )

в case добавь флаги для обозначения нажатия стрелки. потом работай с этими флагами.

3^i = 18

i = 3

ответ. 3 лампочки.

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.