Помогите мне пожалуйста с информатикой.


На фото представлены задания .Я прошу сделайте одно из 9,10 и 11.Умоляю

70 баллов с меня!

var s: string;    n,k: integer;begin// задание 9  write('строка: ');  readln(s);  for n:=length(s) downto 1 do write(s[n]);  writeln;// задание 10  write('строка: ');  readln(s);  repeat    n:=pos(' ',s);    if n>0 then delete(s,n,1);  until n=0;    writeln(s);// задание 11  write('число: ');  readln(s);  n:=1; k:=0;   repeat    if s[n] in ['0'..'9'] then k:=k*10+ord(s[n])-48;    n:=n+1;  until n>length(s);  if s[1]='-' then k:=-k;  writeln('результат: ',k);end.строка: дискксидстрока: это строка для проверкиэтострокадляпроверкичисло: -4568результат: -4568