Помогите с этим (информатика

1) Пронумерую рисунки слева направо. Т. е. 1.5. следует читать как ответ на 1-ый вопрос 5-ый рисунок (крайний справа), а 1.1 - соответственно самый 1-ый рисунок слева:
1.1) writeln (' Ж');
writeln (' ЖЖЖ');
writeln ('ЖЖЖЖЖ');
writeln (' Ж Ж');
writeln (' ЖЖЖ');
1.2) writeln ('Ж');
writeln ('ЖЖ');
writeln ('ЖЖЖЖЖЖ');
writeln (' ЖЖЖ');
writeln (' Ж');
1.3) writeln ('Ж Ж');
writeln (' Ж Ж');
writeln (' ЖЖЖЖЖ');
writeln (' Ж Ж Ж');
writeln (' ЖЖЖЖЖ');
1.4) writeln (' Ж');
writeln (' ЖЖ');
writeln (' ЖЖЖ');
writeln (' ЖЖЖЖ');
writeln ('ЖЖЖЖЖ');
1.5) writeln ('Ж Ж');
writeln ('ЖЖ ЖЖ');
writeln ('ЖЖЖЖЖ');
writeln ('ЖЖ ЖЖ');
writeln ('Ж Ж');
2) a) аналогично нумерую действия:
2.a.1) 2/0.5=4
2.a.2) 4 mod 3 = 1
2.a.3) sqrt (4) = 2
2.a.4) 8-2=6
2.a.5) 6+1=7
2.a.6) abs (7)=7
2.b) y:=(2*sqr ((sin (2*x)/cos (2*x))-1)/4;
3) 3.1. Программа для вычисления площади параллелограмма:
Program Ploschad;
uses crt;
var a, h, S: real;
begin
clrscr;
write ('a=');
readln (a);
write ('h=');
readln (h);
S:=a*h;
write ('S=', S);
readkey;
end.
3.2 Разветвляющиеся алгоритмы:
Program Summa;
uses crt;
var a, b, sum: real;
begin
clrscr;
write ('a=');
readln (a);
write ('b=');
readln (b);
sum:=a+b;
if sum>100 then sum:=sum/2 else sum:=sum*2;
write (sum);
readkey;
end.
3.3 Циклические алгоритмы:
Program Cikl;
uses crt;
var a: real;
label l;
begin
clrscr;
l:;
write ('a=');
readln (a);
if a<0 then goto l else begin
while a<>0 do a:=a-1;
end;
write (a);
readkey;
end.
3.4. Массивы
(*Размер массива можно изменить - для этого замените цифру 7 на желаемую в строке const k=7 - данная цифра - это и есть число элементов массива. В моем случае массив состоит из 7 элементов*)
Program Massiv;
uses crt;
const k=7;
var a: array [1..k] of integer;
i, n, x: integer;
begin
write('x=');
readln(x);
for i:=1 to k do begin
randomize;
a[i]:=random (7);
end;
for i:=1 to k do begin
if a[i]=x then n:=i;
writeln (n);
end;
readkey;
end.
3.5 Строки символов:
Program Stroka;
uses crt;
var s: string [8];
begin
s:='килбайот';
s[4]:='о';
s[5]:='б';
s[6]:='а';
s[7]:='й';
s[8]:='т';
write (s);
readkey;
end.