Составьте программу, которая заменяет все буквы "о" на символ "*" в строке s.

Var  s: string; i: integer; beginwrite('введите строку: '); read(s); for i: = 1 to length(s) do    case s[i] of      'о': s[i]: ='*';       'о': s[i]: ='*';     end; writeln('результат: ',s);   end.

Uses graphabc;     begin   setwindowwidth(800);           setwindowheight(900);         setpenwidth(1);       putpixel(400, 400, clred);                               line(0, 150, 100, 150);   line(0, 150, 100, 200);   line(100, 150, 150, 100);   line(100, 50, 200, 150);   line(100, 50, 200, 0);   line(200, 0, 250, 50);   line(250, 50, 300, 0);   line(300, 0, 300, 100);   line(300, 100, 350, 100);   line(350, 100, 250, 150);   line(250, 150, 300, 350);   line(300, 350, 400, 400);   line(50, 300, 100, 200);   line(50, 300, 100, 250);   line(100, 250, 150, 550);   line(150, 550, 300, 650);   line(400, 400, 500, 250);   line(500, 250, 650, 250);   line(650, 250, 750, 450);   line(750, 450, 650, 400);   line(650, 400, 550, 500);   line(550, 500, 650, 450);   line(750, 600, 650, 450);   line(600, 550, 750, 600);   line(700, 700, 600, 550);   line(500, 600, 700, 700);   line(400, 650, 500, 600);   line(400, 800, 400, 650);   line(450, 850, 400, 800);   line(250, 850, 450, 850);   line(350, 800, 250, 850);   line(300, 650, 350, 800); end.

Uses graphabc;     begin   setwindowwidth(800);           setwindowheight(900);         setpenwidth(1);       putpixel(400, 400, clred);                               line(0, 150, 100, 150);   line(0, 150, 100, 200);   line(100, 150, 150, 100);   line(100, 50, 200, 150);   line(100, 50, 200, 0);   line(200, 0, 250, 50);   line(250, 50, 300, 0);   line(300, 0, 300, 100);   line(300, 100, 350, 100);   line(350, 100, 250, 150);   line(250, 150, 300, 350);   line(300, 350, 400, 400);   line(50, 300, 100, 200);   line(50, 300, 100, 250);   line(100, 250, 150, 550);   line(150, 550, 300, 650);   line(400, 400, 500, 250);   line(500, 250, 650, 250);   line(650, 250, 750, 450);   line(750, 450, 650, 400);   line(650, 400, 550, 500);   line(550, 500, 650, 450);   line(750, 600, 650, 450);   line(600, 550, 750, 600);   line(700, 700, 600, 550);   line(500, 600, 700, 700);   line(400, 650, 500, 600);   line(400, 800, 400, 650);   line(450, 850, 400, 800);   line(250, 850, 450, 850);   line(350, 800, 250, 850);   line(300, 650, 350, 800); end.