С клавиатуры вводится три строки вида Фамилия пробел Имя пробел Рост.Определить фамилию и имя самого высокого человека d pascal abc

while pos(' ',s1)>0 dobegin//s1:=copy(s1,1,pos(' ',s1));//первое слов\val(copy(s1,1,pos(' ',s1)),x,code);delete(s1,1,pos(' ',s1));if code=0 then k:=k+x;end;ghgst:=k;end;var s:string; N:real;begin vvod(S);//Ввести строку S N:=ghgst(S);//Посчитать сумму чисел N в строке S writeln('В строке ',s,' су

все равно