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

var  s: string;beginread(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.