Составить программу, которая позволяет ввести две строки одинаковой длины и определяет, сколько раз у них совпадают символы, стоящие в одной и той же позиции.

Var s1,s2 : String; i,n : Byte;Function Min(a,b : Byte) : Byte;Begin  If a<b then Min:=a else Min:=b;end;Begin  Readln(s1);  Readln(s2);  n:=0;  For i:=1 to Min(Length(s1),Length(s2)) do If s1[i]=s2[i] then Inc(n);  Writeln(n);end.