[Foxara]

К@t@LoNeЦ, В первой задачке у тебя в условии 29 написано, а в программе 20.

Во второй вообще хрен знает что ты написал - во-первых зачем выделенное?:

Сообщение от К@t@LoNeЦ

for i:=1 to N do
readln(A[i]);
For i:=1 to N do
If (A[i]<160) or (A[i]>200) then Writeln('S takim rostom uchenika ne vozmut v komandu');
If (A[i]<70) or (A[i]>220)
then Writeln('Nakogo rosta ne mozhet bit u vipusknika');
If (A[i]<0) then Writeln('Takogo rosta ne bivaet');

Должно быть:
for i:=1 to N do
begin
readln(A[i]);
If (A[i]<160) or (A[i]>200) then Writeln('S takim rostom uchenika ne vozmut v komandu');
If (A[i]<70) or (A[i]>220) then Writeln('Nakogo rosta ne mozhet bit u vipusknika');
If (A[i]<0) then Writeln('Takogo rosta ne bivaet');
If (A[i]>160) or (A[i]<200) then i:=i+1;
end;
(Ежели я чего не путаю, уже с пару лет ТП не открывал...)
Во вторых здесь вообще бред какой-то:

Сообщение от К@t@LoNeЦ

for i:=1 to N do
if (A[i]>=160) and (A[i]<=200)
then
if A[i] ???
Writeln('x=',x);