Help! Только первые задачи! Плиз! Pascal ABC

Что как там?

уже давно добавил. в этот же ответ. внимательно посмотри. отправил сообщением на всякий случай еще

а да точно

спасибо

слушай есть еще пара задач, поможешь?

Карточка 1 (задача 1)vara:array [1..6,1..3] of integer;i,j,k:integer;beginrandomize;writeln('Массив:');for i:=1 to 6 dofor j:=1 to 3 doif (i=1)and(j=1)then a[i,j]:=random(10) else if (j=1)then a[i,j]:=a[i-1,3]+5  elsea[i,j]:=a[i,j-1]+5;;for i:=1 to 6 dobeginfor j:=1 to 3 dowrite(a[i,j]:4);writeln;end;end.Карточка 10 (задача 1)vara:array [1..6,1..6] of real;i,j,k:integer;beginwriteln('Массив:');for i:=1 to 6 dofor j:=1 to 6 dobeginif (i=1)and(j=1) thenbeginwriteln('Введите первый элемент:');readln(a[1,1]);endelseif (i=1)and(j=2) thenbeginwriteln('Введите второй элемент:');readln(a[1,2]);endelseif (j=1)then a[i,j]:=(a[i-1,6]+a[i-1,5])/2 elseif (j=2)then a[i,j]:=(a[i-1,6]+a[i,1])/2 elsea[i,j]:=(a[i,j-1]+a[i,j-2])/2;end;for i:=1 to 6 dobeginfor j:=1 to 6 dowrite(a[i,j]:8:2);writeln;end;end.