20

найдите ошибки в программе
var s: string; c: integer; d: char;

s: ='планета земля'
c: =length(s);
d: ='земля';
c: =pos(s, 'земля');
writeln(copy s, length(s)-1,2);
​​

Var s:string; c:integer; d:char;

...

s:='планета Земля'

c:=length(s);

d:='Земля';  // d объявлено Char, a вы присваиваете строку

c:=pos(s, 'Земля');   // pos (подстрока, строка) если ищете подстроку "Земля" в s то нужно писать Pos ('Земля', s)

writeln(copy s, length(s)-1,2);  // тут я не понял что нужно вывести на дисплей