1.
Repeat
read(c);
if c in ['a',сама тут все перечисли:),'y'] then inc(k1);
if c in ['b',сама тут все перечисли:),'z'] then inc(k2);
Until c='.';
только не забудь описать переменные, обнилить их и вывести)
1.
Repeat
read(c);
if c in ['a',сама тут все перечисли:),'y'] then inc(k1);
if c in ['b',сама тут все перечисли:),'z'] then inc(k2);
Until c='.';
только не забудь описать переменные, обнилить их и вывести)