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

Question

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

Answer 1

Var s1, s2, s3: string;
begin
s1:='практика';
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.