Задача 12.1. Скласти програму для пiдрахунку кiлькостi букв "а" в словi
"iнформатика".

Program PR12_1;
Var
  t:string[20];
  l,k,i:integer;
Begin
  t:='Iнформатика';
  k:=0; { кiлькiсть букв "а"}
  l:=Length(t); {довжина заданого рядка}
 For i:=1 to l do
 If Copy(t,i,1)='а' Then
       k:=k+1;
 WriteLn ('k=',k)
End.

Результати роботи програми:
К=2