Ответ:

var

x,y,z:integer;

begin

writeln(‘Сколько денег у мальчика?’); readln(x);

writeln(‘Сколько потратил?’); readln(y);

z:= x-y;

writeln(‘Осталось ‘,z);

end.