Помогите пожалуйста решить 5 несложных задач (Pascal ABC)

[Аня90]

Привет всем. Прошу помощи в решии 5ти задачек на Pascal ABC.
Вот такие задачки:

1.
Среди натуральных чисел найти те, сумма квадратов цифр которых делится на 13

2.
Вычислить 2/1*2/3*4/3*4/5*6/5*6/7... An (считая с первого по порядку).

3.
Дана строка символов до точки. Группы символов в ней, между группами пробелов, считаются словами. Определить, сколько слов начинается и кончается одной и той же буквой.

4.
Дана квадратная матрица N x N, состоящая из натуральных чисел. Повернуть ее на 90 градусов по часовой стрелке и вывести результат на экран.

5.
В файле хранится информация о времени работы каждого из N врачей поликлиники. Известно, что на прием одного больного запланировано 15 минут. Составить программу, которая выдает талоны на посещение врача с указанием времени посещения.

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

[alex_fcsm]

var n,m,i:integer;

function Sum(x:integer):integer;
var s:string;
    j,code,res:integer;
begin
Str(x,s);
res:=0;
for j:=1 to length(s) do
 begin
  val(s[j],x,code);
  res:=res+sqr(x);
 end;
Sum:=res;
end;

begin
writeln('Input interval');
readln(n,m);
for i:=n to m do
 if Sum(i) mod 13 =0 then writeln(i);
end.

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n,l:integer;
    a:array[1..100] of string;
    flag:boolean;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
flag:=false;
l:=0;
for i:=1 to n do
 if  a[i][1]=a[i][length(a[i])] then inc(l);
writeln(l);
end.

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j:integer;

begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
 writeln;
 end;
writeln('=====================================');
for j:=1 to n do
begin
 for i:=1 to n do
  write(a[i,j]:3);

writeln;
end;
end.

[Аня90]

Огромное спасибо. Уже гораздо легче. можно хоть что то показать преподавателю

вот сейчас попробовала запустить и сразу возникло несколько вопросов

по первой задачке:
когда я ввожу интервал, скажем, 11 и 99, он выдает результат:

11
99
49
58
67
76
85
94

к примеру, сумма квадратов числа 76 ( 7*7 + 6*6 = 85) на 13 не делится


по третьей задачке:
когда я ввожу строку символов, он не выводит то, что нужно.. вот скрин:



по четвертой:
он не так матрицу переворачивает
вот скрин



получившаяся матрица должна выглядеть:
5 8 9
7 6 3
5 7 5

только я в коде уменьшила кол-во символов в матрице до 3х и диапазон цифр до 10

[alex_fcsm]

В первой я поправил(там считались просто цифры)
В третьей выводились слова(теперь подсчитываются)
В четвертой делается транспонирование матрицы

[Аня90]

с первой огромное спасибо!
а как сделать, что бы было в результате написано, что такие то числа делятся на 13?

например

на 13 делятся:
79
81
96
97

с третьей задачкой так и не поняла. я ввожу строку с точкой в конце. жму enter, он ничего не выводит. просто пустое поле. но там есть слова, начинающиеся с одной и той же буквы.

по четвертой:
а как ее можно перевернуть на 90 градусов?

[alex_fcsm]

Перед выводом чисел напишите writeln('Делятся на 13:');
Вторую я поправил(см выше)

[Аня90]

спасибо!

а третья (с выводом кол-ва слов с одной буквы) все равно не работает
опять ничего не выводит

[alex_fcsm]

Попробуйте сами. Если не получится посмотрите на пост 3