Доброго времени суток . Нужна ваша с решением данных заданий . Заранее благодарю ;)

PascalABC.NET 3.3

program journal;

var

 sum, mark, count, n: integer;

 check: boolean;

begin

 sum := 0;

 check := true;

 count := 0;

 writeln('Введите количество оценок: ');

 readln(n);

 if (n > 0) then begin  

 while (count <> n) do

 begin

   readln(mark);

   inc(sum, mark);

   if (mark < 4 ) then check := false;

   inc(count);

   if (count = n) then writeln('Ввод окончен!');

 end;

 end else writeln('Error!');  

 if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');

end.

Задание №1
CLS
DIM A(20), B(20)
DATA -6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6
FOR i = 1 TO 8
READ A(i)
PRINT i, A(i)
NEXT i
PRINT ""
FOR i = 1 TO 8
B(i) = A(i) * 5
PRINT i, B(i)
NEXT i
PRINT ""
FOR i = 1 TO 8
PRINT i, A(i) * B(i)
NEXT i
PRINT ""
i = 5
PRINT i, A(i)
i = 1
PRINT i, B(i)  

Задание №2
CLS
INPUT "vvod A"; A
c1 = INT(A / 1000)
A = A - 1000 * c1
c2 = INT(A / 100)
A = A - 100 * c2
c3 = INT(A / 10)
c4 = A - 10 * c3
S$ = "No"
IF c1 = c2 THEN S$ = "Es"
IF c1 = c3 THEN S$ = "Es"
IF c1 = c4 THEN S$ = "Es"
IF c2 = c3 THEN S$ = "Es"
IF c2 = c4 THEN S$ = "Es"
IF c3 = c4 THEN S$ = "Es"
PRINT S$, c1, c2, c3, c4