01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SERG10_1

program serg10_1;
var posl : string[100]; i, j, k, n, kolvo : integer;
s : array [1..100] of integer; y : array [1..100] of integer;

begin writeln ('‚ўҐ¤ЁвҐ бвp®Єг б«®ў');read ( posl );

{writeln ('ЏҐз вм бвp®ЄЁ б«®ў'); write ( posl ); writeln;}

j := 0; kolvo := 0;
for i := 1 to length(posl) do
if (posl [i] <> ' ') and (posl [i+1] = ' ') then
begin j := j + 1; kolvo := kolvo + 1; s[j] := i; end;

if (posl [length (posl) ] <> ' ') then begin
kolvo := kolvo + 1; j := j + 1; s[j]:= length(posl);end;

k := 0;
for i:=1 to length(posl) do
if (posl [i] = 'a')or(posl [i] = ' ')or(posl [i] = 'A')or(posl [i] = 'Ђ')
then begin k := k+1; y [k] := i;end;

for i := 1 to k do writeln('Ќ®¬Ґа ',i,' ЎгЄўл   (Ђ) ',y[i]);
writeln('‘«®ў ў бвp®ЄҐ ',kolvo:2);readln;readln;end.