// © SimTiko
uses crt;
var p:array[0..1000] of char;
var i,n,s,k:integer;
var code:string;
var kuk:boolean;
begin
writeln('Введите код');
readln(code);
writeln('Старт...');
repeat
if code[n]='>' then i:=i+1;
if code[n]='<' then i:=i-1;
if code[n]='+' then begin k:=integer(p[i])+1; p[i]:=char(k); end;
if code[n]='-' then begin k:=integer(p[i])-1; p[i]:=char(k); end;
if code[n]='.' then begin write(p[i]); end;
if code[n]=',' then read(p[i]);
n:=n+1;
until n=length(code)+1;
end.