Составьте программу в паскале абс, которая в исходном тексте: а) утраивает заданный символ. б) удваивает каждую букву. в) удваивает каждый знак. г) удваивает каждый пробел.

uses crt; var a: array[1..50] of real; i,n,k: integer; begin  clrscr;     write('chislo avto='); read(n);     if (n> =1) and (n< =30) then

    begin        writeln('skorosti: ');         for i: =1 to n do        begin            readln(a[i]);             if a[i]> 300 then write('error');             if (a[i]> 80) and (a[i]< =300) then k: =k+1;         end;         if k> 0 then write('yes')        else write('no');     end    else write('error'); end.

паскаль авс:

program tabulator; uses graphabc, crt; var  min,max,shag,x,y: real; x0,y0,k,i,x1,y1: integer; begin  setwindowsize(640,640);   x0: =300;   y0: =300;   k: =50;   min: =2;   max: =4;   shag: =0.2;   x: =min;     line(x0,20,x0,600);     line(20,y0,620,y0);     line(x0,20,x0-10,30);   line(x0,20,x0+10,30);     line(630,y0,620,y0-10);   line(630,y0,620,y0+10);     for i: =-5 to 5 do            begin            line(x0+(i*k),y0-10,x0+(i*k),y0+10);             textout(x0+(i*k),y0+10,inttostr(i));             end;     for i: =-5 to 5 do            begin            line(x0-10,y0+(i*k),x0+10,y0+(i*k));             if i< > 0 then textout(x0+10,y0+(i*k),inttostr(-i));             end;   while x< =max do      begin        y: =0.1*x*x-x*cos(x);         writeln(x: 5: 2,' ',y: 5: 2);         x1: =trunc(x0+x*k);         y1: =trunc(y0-y*k);         setpencolor(clred);         circle(x1,y1,2);         x: =x+shag;       end; end.