program ArrayS;
var
A: array of string;
i: Integer;
s: string;
begin
s := '';
i := 0;
WriteLn ('Введите элементы массива через Enter. Пустое значение - окончание ввода:');
repeat
ReadLn (s);
if s <> '' then begin
Inc (i);
SetLength (A, i);
A [i - 1] := s;
end;
until s = '';
for i := Low (A) to High (A) do
if Length (A [i]) > 4 then
A [i] := A [High (A)];
WriteLn;
WriteLn ('Результирующий массив:');
for i := Low (A) to High (A) do
Write (A [i], ' ');
ReadLn;
end.
Сначала перечислю несколько основных особенностей sketchup, которые нужно знать и использовать для упрощения и ускорения рисования. Затем будут рассмотрены часто задаваемые во которые возникают при использовании sketchup.

С чего начать? Лучше всего посмотреть серию уроков на русском языке [1]. Общие впечатления от sketchup хорошие. Интерфейс не перегружен функциями, работает быстро. Однако есть и обратная сторона медали. В интерфейсе программы очень много тонкостей, которые нужно знать, чтобы можно было ей пользоваться. К примеру, нужно знать, как правильно работает выравнивание по объектам, осям, как правильно копировать, менять размеры, как делать поворот по разным осям и плоскостям, как правильно рисовать объекты и т. д. Есть и другие недоработки - например, почти трудно рисовать мелкие прецизионные объекты. Обычным не получится нарисовать окружность радиусом менее 0.5 мм, нужно ухищряться - рисовать окружность большего диаметра, и затем применять инструмент Уменьшения (Scale).
2 б 16 битов+2 К66= 2052б