Var
i,sum:Integer;
Begin
for i:=5 to 101 do
begin
if (i mod 2 <> 0) sum:=sum+i;
end;
Writeln(sum);
end.
Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.
У пера нет толщины - не положено ему, цвет выбирают в палитрах Color или Swatch
<span>Когда пером сделали контур - клик правой кнопкой мыши и выбрать -- Выполнить обводку контура. Вам предложат выбрать кисть или карандаш - и толщина будет такой какая толщина кисти или карандаша задана заранее.</span>
Файл исходник input, файл ответ output