s:=245;
c:= str(s)+str(s–100)+’руб’ ;
writeln (с)
```
program Project1;
var s: integer;
var c: string;
begin
s := 245;
c := IntToStr(s)+IntToStr(s–100)+' руб';
writeln (c);
end.
```
После выполнения этой программы в консоли вы увидите: "245145 руб".