Ввести с клавиатуры символьную строку и заменить в ней все буквы «а» на «б» и все буквы «б» на «а» (заглавные на заглавные, строчные на строчные).

Пример:

Введите строку:

ааббААББ

Результат:

ббааББАА

uses GraphABC;

begin

SetWindowWidth(800);     //ширина окна программы

SetWindowHeight(600);    //высота окна программы

SetPenWidth(5);          //толщина пера

setpencolor(clblue);

Rectangle(1, 600, 200,450);

Rectangle(150, 300, 200,450);

Line(1, 450, 150,450);

Line(150,450, 75,150);

Line(75,150, 1, 450 );

Line(200, 197, 400,197);

Line(400, 197, 300,107);

Line(300, 107, 200,197);

Rectangle(200, 600, 400,200); //дом

Rectangle(400, 600, 600,450); //дом

Rectangle(450, 300, 400,450); //дом

Line(447, 447, 600,447);

Line(600,447, 520,150);

Line(520,150, 447, 447);

Circle(300,300,50);

Circle(520,130,25);

Circle(75,130,25);

end.

Const n=10;
var 
  a: array[1..n] of integer;
  p,k: integer;
  i: byte;
begin
  randomize;
  p:=1; k:=0;
  for i:=1 to n do begin
    a[i]:=random(21);
    if (a[i]>0) and (a[i] mod 6 =0) then begin
      p:=p*a[i];
      k:=k+1;
    end;
  end;
  println (a);
  if k>1 then writeln ('Произведение элементов, кратных 6, = ',p)  
    else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p)
           else writeln ('Нет элементов, кратных 6')
end.

Примеры:

15 7 14 14 1 17 4 2 20 10
Нет элементов, кратных 6

12 11 16 1 20 6 0 8 7 20
Произведение элементов, кратных 6, = 72

14 6 8 3 15 7 14 5 19 15
Найден всего 1 элемент, кратный 6, - 6