Дано четырехзначное число если сумма всех цифр кратно 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.