var X, Y, left: integer;beginwrite('Введите сумму взятую на мелкие расходы: ');readln(X);
write('Введите сумму потраченную на сладости: ');readln(Y);
left := X - Y;
writeln('У мальчика осталось ', left, ' рублей');end.
var X, Y, left: integer;
begin
write('Введите сумму взятую на мелкие расходы: ');
readln(X);
write('Введите сумму потраченную на сладости: ');
readln(Y);
left := X - Y;
writeln('У мальчика осталось ', left, ' рублей');
end.