Светлана
var s:string; i,k:integer;
begin
readln(s); k:=pos(' ',s)-1; if k
учиться надо было в свое время. быстрее ей)
Не тарапися
freelance.ru
free-lance.ru
weblancer.net
Вот там тебе срочно сделают, а тут только если желание будет. Чтобы поторапливать, плати деньги.