44.В строке имеется одна точка с запятой (;).
Подсчитать количество символов до точки с запятой и после неё.
Решение
program
lab44;
var
s:string;
i,k,n:integer;
begin
writeln('Vvedite
stroku:');
readln(s);
i:=0;
i:=pos(';',s);
k:=i-1;
n:=length(s)-i;
if
i<>0 then writeln('Do ";" : ',k,' simv., posle ";" ',
n, ' simv.')
else
writeln('; NE naydena');