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

program zz1;

var s, ch:string; / /заводим переменные

k, i:integer;

begin

write ('введите первую строку ');

readln (s); / /вводим первую строку с клавиатуры

write ('введите вторую строку ');

read (ch); / /вводим вторую строку

for i:=1 to length (s) do / /организуем цикл от первой буквы строки до последней буквы строки

if s[i] = ch[i] then k:=k+1; / /проверяем, если буквы стоящие на одной позиции в двух строках совпадают, то считаем

write ('количество символов стоящих на одинаковых позициях в двух строках = ', k); / /выводим ответ

end.