Решение в паскале: дано предложение, все пробелы в нём заменить на *, а остальное заменить на - нужно менять саму строку, а не просто символы выводить

S: string; i: integer; begin readln(s); for i: =1 to length(s) do if s[i]=' ' then s[i]: ='*' else s[i]: ='-'; writeln(s); readln; end.

1. много опечаток. где-то забыли " ; ", где-то лишняя скобка.  в функции sqrt вместо q ввели g и т.п. 2. программа не дописана до конца. вот исправленный код: program kvadrat; var   d, a, b, c: integer;   x1, x2: real; begin   writeln('a,b,c');   readln(a, b, c);   d : = b * b * -4 * a * c;   if d < 0 then writeln('корней нет') else   if d = 0 then   begin       x1 : = -b / (2 * a);       writeln('решение уравнения', x1);   end   else if d > 0 then begin       x1 : = (-b + sqrt(d)) / (2 * a);       x1 : = (-b - sqrt(d)) / (2 * a);       writeln('решения уравнения', x1, ' ', x2);   end; end.

//pascal abc.net v3.1 сборка 1172 const   n=4; var   ar: array[1..n] of integer;   i,j: integer;   k: real; begin  writeln('array: ');   for i: =1 to n do     readln(ar[i]);   k: =ar[1]/ar[2];   for i: =1 to n-1 do     if ar[i]/ar[i+1]< > k then     begin       writeln('no');       exit;     end;   writeln('yup'); end. пример ввода: 1 2 4 8 пример вывода: yup