К уроку 11 и 12 ноября

 Выписать в тетрадь и выучить( если не знали), то что должны знать с 1 четверти. 

var s:string; описание строковой величины

read(s); ввод величины с клавиатуры

s := ' Школа '+ ' '+ 'привет ' ; склейка величины из слов

 length(s) ; подсчет количесва символов в величине

for i:= 1 to length(s) do if s[i]='A'  then ka:=ka+1; подсчет количества букв А в величине

for i:=1 to length(s) do if s[i]='а' then s[i]:='о' ;    замена букв а на о

if s[ length(s)-1]='A'  then writeln ('предпоследняя буква слова А') проверка предпоследней буквы на букву А