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

[Izanagir]

Просьба помогите студенту с задачами... Сам не могу их решить. Был бы премного благодарен за помощь

Функции
--- Даны координаты вершин двух треугольников на плоскости. Определить, какой из них имеет больший периметр, и напечатать ее значение.

Процедуры
--- Стоимость проезда на автобусе за расстояние меньше 8 км равняется 34 рубля. За каждый следующий километр стоимость увеличивается на 3 рубля. Напишите функцию для определения стоимости проезда k км и процедуру, определяющую наименьшее число билетиков по 10, 4 и 1 р., которые нужно приобрести на эту поездку. Используйте их в программе для терминала продажи билетов: на входе расстояние поездки, на выходе — количество билетов.

[Zedanger]

Первая задача:

program z1;
uses crt;
var
a,b: array [1..3,1..2] of integer;
p: array [1..2] of real;
begin
clrscr;
Writeln('Введите кординаты первой вершины первого треугольника(x,y):');
Read(a[1,1],a[1,2]);
Writeln('Введите кординаты второй вершины первого треугольника(x,y):');
Read(a[2,1],a[2,2]);
Writeln('Введите кординаты третьей вершины первого треугольника(x,y):');
Read(a[3,1],a[3,2]);
Writeln('Введите кординаты первой вершины второго треугольника(x,y):');
Read(b[1,1],b[1,2]);
Writeln('Введите кординаты второй вершины второго треугольника(x,y):');
Read(b[2,1],b[2,2]);
Writeln('Введите кординаты третьей вершины второго треугольника(x,y):');
Read(b[3,1],b[3,2]);
p[1]:= sqrt(sqr(a[1,1]-a[2,1])+sqr(a[1,2]-a[2,2]))+sqrt(sqr(a[2,1]-a[3,1])+sqr(a[2,2]-a[3,2]))+sqrt(sqr(a[3,1]-a[1,1])+sqr(a[3,2]-a[1,2]));
p[2]:= sqrt(sqr(b[1,1]-b[2,1])+sqr(b[1,2]-b[2,2]))+sqrt(sqr(b[2,1]-b[3,1])+sqr(b[2,2]-b[3,2]))+sqrt(sqr(b[3,1]-b[1,1])+sqr(b[3,2]-b[1,2]));
if p[1]=p[2] then
Writeln('Оба периметра равны ', p[1])
else
if p[1]>p[2] then
Writeln('Периметр первого треугольника больше и равен: ',p[1])
else
Writeln('Периметр второго треугольника больше и равен: ',p[2]);
Read;
End.

Вторая:

program z2;
uses crt;
var
km,st, b10,b4,b1: integer;
begin
clrscr;
Write('Укажите расстояние проезда в км:');
Read(km);
if km <= 8 then
st:= 34
else
st:= 34 + (km-8)*3;
b10:= st div 10;
st:= st- b10*10;
b4:= st div 4;
st:= st- b4*4;
b1:= st;
Writeln('Стоимость поездки: ', st);
Writeln('Необходимо приобрести ', b10 ,' билетов по 10 руб, ' , b4, ' билетов по 4 рубля и ', b1, ' по 1 руб');
end.