Помогите с Паскалем

1)

2) 5

3) Var s:string;

i,k:integer;

Begin

write('Введите строчку: ');readln(s);

k:=0;

For i:=1 to Length(s) do

if s[i]='.' then

Begin

inc(k);

s[i]:='!';

End;

if klt;gt;0 then writeln('Приобретенная строчка: ',s)

else writeln('Точек нет');

readln;

End.

sqrt(sqr(x-3)=sqr(5-3)=sqr(2)=4)=2/sqrt(y)=2/sqrt(0.16)=2/0,4=5