Program Pr1; uses crt; var stroka:string; i,k,x:integer; mas:array[byte] of integer; Begin clrscr; readln(stroka);i:=1; repeatval(stroka[i],k,x); mas[i]:=k; i:=i+1;until i=length(stroka); x:=0; for i:=1 to length(stroka) do x:=x+mas[i]; if x=10 then writeln('TRUE') else writeln('ELSE'); end.
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);i:=1;
repeatval(stroka[i],k,x);
mas[i]:=k;
i:=i+1;until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.