слово: САМ_____________________
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
1. С помощью изменения шрифта, его размера, цвета, начертания шрифта (полужирное, курсивное и т.д.) и применения к шрифту эффектов (<span>(верхний индекс, нижний индекс, малые прописные буквы, подчеркивание и т.д.). Они размещены на главной панели.
</span>2. ---
3. Автоматический просмотр формата объекта - это автоматическое перелистывание и переход между страницами
4. <span>При работе с Панелью форматирования выравнивание осуществляется с помощью расположенных на ней кнопок.
5. ---
6. ---</span>
uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
PenDown;
OnVector(5,-5);
OnVector(5,5);
OnVector(i,-i);
OnVector(-i,-i);
OnVector(-5,5);
OnVector(-5,-5);
OnVector(-i,i);
OnVector(i,i);
PenUp;
end;
end.