1)составьте программу которая выводит из слов "кино", "форма" и "книга" слово "информатика"
2) найдите ошибки в программе
vars: string; c: integer; d: char;
s: ='планета земля'
c: =length(s);
d: ='земля';
c: =pos(s, 'земля');
writeln(copy s, length(s)-1,2);