Задачи по Паскалю

[salomon93]

Помогите пожалуйста решение напишите сюда
1) Даны площади нескольких квадратов.Найти длины диагонали самого большого из них.

2)Даны натуральное число n и целые а1,а2,...,аn.Выяснить, верно ли, что количество отрицательных чисел ai,превышает х.

3)Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон начинается с цифры 3. Расмотреть два случая : а)телефон задан в виде семизначного числа.
б)телефон задан в виде ,аналогичном следующему:268-50-59

4Даны название 20-ти стран и частей света,в которые они находятся.Определить,есть ли среди них страны,находящиеся в Африке или в Азии.В случае положительного ответа напечатать их названия.

[Mad_Cat]

Даны площади нескольких квадратов.Найти длины диагонали самого большого из них.

smax:=0;
for i:=1 to n do
if s[i]>smax then smax:=s[i];
writeln(sqrt(2*smax));

Даны натуральное число n и целые а1,а2,...,аn.Выяснить, верно ли, что количество отрицательных чисел ai,превышает х.

k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
writeln(k>x);

Даны название 20-ти стран и частей света,в которые они находятся.Определить,есть ли среди них страны,находящиеся в Африке или в Азии.В случае положительного ответа напечатать их названия.

C:array[1..2,1..20] of string[50];
{...}
f:=false;
for i:=1 to 20 do
begin
if (C[2,i]='Азия') or  (C[2,i]='Африка') then begin f:=true;writeln(c[1,i]);end;
end;
if not f  then writeln('HET');