очень надо
Напишите на языке Паскаль программу вычисления y

Вот посмотри, может сем
uses crt;
var s: string;    
function Kslov (str: string; c: char): integer;
var i,k: integer;
begin str:=str+' ';  
k:=0;
for i:=1 to length(str)-1 do     if (str[i+1] in [' ','.',',','-',':',';','!','?'])         and (str[i]=c) then inc(k);
Kslov:=k;
end;
  procedure Del(var str: string);
var i,j: integer;
begin str:=str+' '; i:=length(str)+1;
repeat dec(i);
until(str[i+1]=' ') and (str[i]='о');
j:=i;
repeat dec(i);
until(str[i+1]=' ') or (i=1); delete(str,i,j-i);
end;  
begin write('s='); readln(s); if Kslov (s,'о')>Kslov (s,'а')    then Del(s); write('s=',s);
End.

geometry dash — видеоигра в жанре 2d-платформера, выпущенная изначально для мобильных устройств на ios/android, позже и для настольных компьютеров в steam. создатель игры — шведский разработчик роберт топала, выступающий под псевдонимом robtop. игровой процесс заключается в прохождении уровня со множеством препятствий под ритмичную электронную музыку. помимо встроенных, игроки могут создавать свои уровни и выкладывать их для прохождения другими игроками. вокруг игры сложилось активное сообщество фанатов[7][8].