===== PascalABC.NET =====
begin
ReadlnString
.ToWords
.Select(w -> w.Inverse)
.JoinIntoString(' ')
.Print
end.
Если кодировать только те пещеры в которых есть, то одна, если все то три.
Program oplata;
var a,b:integer;
begin
writeln('Введите стоимость ');
readln(a);
writeln('Введите оплату ');
readln(b);
if a=b then writeln('спасибо')
else if a>b then writeln('добавьте денег')
else writeln('возьмите сдачу')
<span>end.</span>
Если поочередно, то это временное разделение