Составьте на языке Pascal - Составьте фразу "практическая работа" из слов "практика","рабочий","честная" . Срочно пжл , спасибо

var s1, s2, s3: string;begins1:='практика';s2:='рабочий';s3:='честная';writeln (copy(s1,1,6)+copy(s3,1,3)+copy(s1,7,2)+copy(s3,7,1)+' '+copy(s2,1,4)+copy(s3,4,1)+copy(s1,3,1))end.