Дано четырехзначное число если сумма всех цифр кратно 5 ти найти корень квадратный от произведения первой и четвертой цифры иначе найти произведение второй и третьей цифры

Var  s: string;
begin
read(s);
 if s.Length = 4 then
   begin
   if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))mod 5=0)
   then write(sqrt(strtoint(s[1])*strtoint(s[4]))) 
  else write(strtoint(s[2])*strtoint(s[3]))  end;
end.