Подскажите как сделать эти по информатике 5 класс.

Var   s: string;   n: integer; begin   write('вводите: '); readln(s);   n: =length(s);   s: =copy(s,n-2,3)+copy(s,4,n-6)+copy(s,1,3);   writeln(s) end. ************************************************** var   s: string;   c: char;   i,n: integer; begin   write('вводите: '); readln(s);   n: =length(s);   for i: =1 to 3 do begin       c: =s[i]; s[i]: =s[n-3+i]; s[n-3+i]: =c       end;   writeln(s) end. результат вводите: информатика икаорматинф

1) var s,t: string; i: integer; begin writeln('введите слово: '); readln(s); t: =''; for i: =1 to length(s) do   t: =s[i]+t; writeln(t); end. пример: введите слово: телефон нофелет 2) пробелы учитываются (только пробелы). var s,t: string; i,k: integer; begin writeln('введите предложение: '); readln(s); t: =s; while pos(' ',t)> 0 do delete(t,pos(' ',t),1); for i: =1 to length(t)-1 do   if t[i]=t[i+1] then k: =k+1; writeln('k = ',k); end. пример: введите предложение: колонна автомобилей медленно объезжала аул k = 5