Разделите 180 на 2 так чтобы в каждой части получилось 100. на логику!

ДевяноСТО получается)0

Нужно нарисовать черту горизонтальную через 180 и получится, что сверху и снизу 100

Вот посмотри, может сем
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.

2 В связи с этим первое, на что стоит обратить свое внимание это надежность. Любая система для хранения данных должна предусматривать частичное либо полное резервирование таких компонентов ка блоки питания, процессорных модулей, путей доступа, дисков и т.д. обязательным требованием считается также наличие мониторинга и множество для оповещения о различных проблемах.

Второе требование, которое должно учитываться при работе системы хранения данных это доступность всех данных. Именно она обеспечивается заранее разработанными функциями для того чтобы сохранить целостность данных.

3