Відповідь:

uses GraphABC;

var

 M: array[1..4] of char; // створення масиву з 4 символами

begin

 M[1] := 'М'; // присвоєння символів масиву

 M[2] := 'А';

 M[3] := 'М';

 M[4] := 'А';

 OnVector(100, 100); // встановлення початкової позиції для виведення символів

 for var i := 1 to 4 do

 begin

   Write(M[i]); // виведення символу

   MoveTo(GetVector.X + 20, GetVector.Y); // зміщення позиції на 20 пікселів

 end;

end.

Пояснення: