Как ввести строковый тип данных (string) через пробел в паскале

Question

Как ввести строковый тип данных (string) через пробел в паскале

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

readln(s); s1:=copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); s2:=copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); s3:=s; if(s1>s2)and(s1>s3)then writeln(s1) else if(s2>s1)and(s2>s3)then writeln(s2) else writeln(s3);