1. С клавиатуры вводят слово и симвал. Составьте программу, которая а) проверяет,…

Вот первая программа. Вторую сейчас пишу.program p_1; var a,b: string; i,k: integer; begin k: =0; write ('Введите слово '); readln (a); write ('Введите символ '); readln (b); for i: =1 to length (a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln (i,'); end; if k>=1 then writeln ('Да, встречается ',k,' раз, на позиции указанных сверху в столбик ') else writeln ('Нет'); end.