Question

Умоляю помогите очень надо, исправить оценку ​

Answer 1

Ответ:

var p,a,b,c,s:integer;

begin

readln(a, b, c);

p:=a-b;

if p>0 then s:=p*p*p

else s:=c-p;

writeln(s);

end.

Объяснение: