Помогите набрать в паскале:

2.Запишите следующие числа в естественной форме:
а.0,3800456 × 10²
б.0,245 × 10⁻³
в.1,256900Е+5
г.9,569120Е-3
3.Запишите число 2010,0102₁₀ пятью различными спосабами в экспоненциальной форме.

Установить основной цвет жёлтый. 2.

Выбрать инструмент Овал и настроить его на 3-ий режим заполнения.

3. Удерживая клавишу {Shift}, нарисовать круг.

4. Выбрать инструмент Линия и настроить его нарисование самых жирных линий. 5. Удерживая клавишу {Shift), изобразить отрезки, выходящие из центра жёлтого круга.

На экране будет нарисовано солнце.

Предложите другую последовательность изображения этого же объекта: (Помогите другую последовательность сделать!).

Бейсик
a=5 : b=8
If b/2>=a-1 Then
a=b+5
b=b*2-a
Else
a=a*b
b=b-a
Endif
Print b

Паскаль
a:=5 ; b:=8 ;
If b/2>=a-1 Then
begin
a:=b+5;
b:=b*2-a;
end
Else
begin
a:=a*b;
b:=b-a;
end;
Writeln(b);

удалить последний из найденных.Помогите решить в паскале.(вычислить средн.ариф.номер э-та,....)

После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА.

22. В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, правда ли, что пер-вый отрезок не слишком длинен, чтобы образовать с другими двумя отрезками треугольник. Указание: Для этого его длина должна быть меньше суммы длин двух других отрезков. Замечание: Пока не думайте о том, что слишком длинными могут быть второй или третий отрезки. Об этом – задание из 5.5.

^^
////0\\
\\\\\\\\\
############
############
# #
_ _

Необходимо удалить первый кратный 3 элемент массива.
program udalenie;
var i,n,k:integer;
a:array[1..1000] of integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
while i<=n do
if a[i] mod 3=0 then
begin
for i:=k to n-1 do
a[i]:=a[i+1];
n:=n-1; exit;
end;
for i:=1 to n do write(a[i],' ');
close (input);
close (output);
end.