На вход программе подаются строки вида:Марка авто_стоимость(руб)Вывести на экран марки всех авто, стоимость которых ниже средней — Pascal(Паскаль)

uses crt;
var
    i,n:integer;
    sr:real;
    s:array[1..100] of string;
 
function stoimost(a:string):integer;
var 
    j,k:integer;
    st:string;
begin
    for j:=1 to length(a) do
        if a[j]='_' then
            st:=copy(a,j+1,length(a)-j);
    val(st,k,j);
    stoimost:=k;
end;
function marka(a:string):string;
var 
    j:integer;
    st:string;
begin
    for j:=1 to length(a) do
        if a[j]='_' then
            st:=copy(a,1,j-1);
    marka:=st;
end;
    
begin
clrscr;
writeln('BBeDuTe n');
readln(n);
for i:=1 to n do
    begin
        clrscr;
        writeln('BBoDuTe ',i,' Mapky_cTouMocT');
        readln(s[i]);
    end;
sr:=0;
for i:=1 to n do
    sr:=sr+stoimost(s[i]);
sr:=sr/n;
for i:=1 to n do
    if stoimost(s[i])<sr then
        writeln(marka(s[i]));
readln;
 
end.