Pascal abc в третей строчке выдает ошибку, пишет "неожиданный символ". что делать? var p: integer; begin write(’введите пароль’); read (p); if p: =1998 then write (’молодец’) else write (’пароль не верен’); end.

Исправленная: var p: integer; begin write('введите пароль'); read (p); if p=1998 then write ('молодец') else write ('пароль не верен'); end.

          program al;           var n,i: integer;           k,b,a1,p: integer;                       s: real;             begin            writeln('n=');           readln     (n);                       a1: =2;           b: =3;     p : = 1;     s: =0;         for i: =1 to n do   begin       p : = p * a1;       a1 : = a1 + b;     end;     for i: = 1 to n do begin    k: =   2*a1+b*(n-1);     s: =(k/2)*n;             end;   writeln('proizvedenie: ',p ,' summa=',s);   readln; end.

Var a: string; b,c,v,s: byte; begin b: =0; c: =0; writeln('введите строчку'); readln (a); repeat   inc (b);   if (a[b]=' ') or (b=length(a)) then   begin   inc (c);   if (c=1) then   v: =b;   if c=2 then   begin   if (b=length(a)) then   delete(a,v,b-v+1)   else   delete(a,v,b-v);   b: =b-(b-v);   c: =0;   end;   end   else continue; until b> length(a) ;   writeln(a); readln; end. это вот программа по подсчёту пробелов. эту давно писал, а сейчас занят, поэтому только идею