Помогите решить задания девушке далёкой от программирования.

Задание 1
Работа с типом данных STRING (строка).
Написать программу, которая считывает текст и выводит на экран только предложения, не содержащие числа.

Задание 2
Задана квадратная матрица Y (5,5).
Определить, где больше чётных элементов: выше или ниже главной диагонали ?

Задание 3
Составить схему алгоритма и программу на языке Паскаль для решения нелинейного уравнения указанным итерационным методом, если задан интервал существования корня.
В программе использовать подпрограммы.
Метод половинного деления
Формула
кв корень из 1-0,4х^2 - arcsinX = 0
[0;1] - отрезок содержащий корень.

Большое спасибо.

Мот ещё и 3-ю задачку кто проверит ?

Program kr;
Uses Crt ;
Var
a,b,c,a0,b0:real;

Function f(x:real):real;
begin
{formula }
f:=sqrt(1-0.4*sqr(x))-arctan(x/sqrt(1-x*x));
end;

Begin
ClrScr;
Writeln(' reshenie ');
{ vvod dannix }
a:=0; b:=1;
a0:=a; b0:=b; { zapominaem dannie }
{ na4inaem ras4et }
begin
c:=(a+(IMG:style_emoticons/default/cool.gif)/2;
if f(a)*f(с)<=0 then b:=c
else a:=c;
end;
Writeln(' yravnenie sqrt(1-0.4*sqr(x))-arctan(x/sqrt(1-x*x)) na otrezke [',a0:4:1, ',',
b0:4:1, '] imeet koren x = ', c:10:8);
Writeln(' f(x) = ',f(с):10:8);

Readln;
End.