Дано трехзначное число если оно является перевёртышем найти сумму цифр этого числа, а если нет то произведение цифр этого числа

var

st: string;

i, tmp, res, err:integer;

begin

readln (st) ;

if (st[1] = st[3]) then

for i:=1 to 3 do

begin val (st[i], tmp, err) ; res:=res+tmp; end

else begin res:=1; for i:=1 to 3 do

begin val (st[i], tmp, err) ; res:=res*tmp;

end;

end;

writeln (res) ;

end.