Программы на Delphi

[[Тоха]]

Здравствуйте! Помогите пожалуйста решить следующие задачи на Delphi:
Очень нужно

Задание1.
Найти:

а) все двузначные числа, сумма квадратов цифр которых делится на 13;

б) все двузначные числа, обладающие следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова искомое число;

в) все двузначные числа, которые делятся на n или содержат цифру n.

Задание2.
Дан двухмерный массив.

а) Выяснить, является ли произведение элементов второго столбца массива трехзначным числом.

б) Составить программу, определяющую, верно ли, что сумма элементов строки массива с известным номером превышает заданное число.

Задание3.
Имеется текстовый файл, в каждой строке ко*торого первые два символа являются буквами. Получить:

а) слово, образованное первыми буквами каждой строки;

б) слово, образованное вторыми буквами каждой строки;

в) последовательность символов, образованную s-ми символами каждой строки.

P.S. Большое спасибо заранее

[Stilet]

все двузначные числа

Даю наводку:

 i:=23;
 h:=i div 10; // Это первая цифра числа
 l:=i mod 10;// Это вторая цифра числа

сумма квадратов цифр которых делится на 13;

В цикле от 1 до скажем 100
раскладываем счетчик и проверяем
if (sqr(h)+sqr(l)) mod 13 =0 then Это оно

если к сумме цифр числа прибавить квадрат этой суммы, то получится снова искомое число;

Ну опять таки в цикле
if ((h+l)+sqr(h+l))=i then // i - искомое

которые делятся на n или содержат цифру n.

if (h=n)or(l=n)or(i mod n =0) then // i - Искомое

Выяснить, является ли произведение элементов второго столбца массива трехзначным числом.

 p:=1;
 for i:=1 to length(a)-1 do   p:=a[2,i]*p;
 if p<99 then Да. Является

Здесь а - массив p - переменка для произведения

верно ли, что сумма элементов строки массива с известным номером превышает заданное число.

 p:=1;
 for i:=1 to length(a)-1 do   p:=a[n,i]+p;
 if p>k then Да. превышает

Здесь p - Сумма, к - заданное число n - известный номер строки

[[Тоха]]

Благодарю за помощь Stilet