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

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.