Помоготе пожалуста,экзамен на носу

[zayai]

помогите плиз

задание1.
Составить модуль,содержащий следующие подпрограммы определения характеристикправильной четырехугольной пирамиды(задаестя стороной основания и высотой)
-площадь полной поверхности
-объем
-длина главной диагонали
-образующую
-угол при вершине диагонального сечения
-площадь основания.

задание2.
Дан целочистенный файл f .Составить из файла f файл g так,чтобы в него вошли все элементы,кратные 3 ,и файл h ,состоящий из элементов файла g ,кратных 5.

задание3.
Дана последовательность из n вещественных чисел.Найти номер последнего вхлждения данного числа в последовательность или вывести сообщение,что такого числа нет.

задание4.
вывести на экран слова строки,состоящие из четного числа символов.

задание5.
Заданы проекции двух векторов на оси координат Х и У.Найти модуль вектораразности.


пожалуста помогите,зараннее спасибо!!!Срочно

[pomoshnic]

Вот задание 2:

var f,g,h:file of integer;
i:integer;
begin
assign(f,'f');
assign(g,'g');
assign(h,'h');
reset(f);
rewrite(g);
rewrite(h);
while not eof(f) do
begin
read(f,i);
if i mod 3 = 0 then write(g,i);
end;
close(f);
close(g);
reset(g);
while not eof(g) do
begin
read(g,i);
if i mod 5 = 0 then write(h,i);
end;
close(g);
close(h);
end.

[pomoshnic]

Задание 4:

var s:string;
i,m,a,b:integer;
begin
writeln('Vvedite tekst');
readln(s);
m:=length(s);
i:=1;
for a:=1 to m do
begin
if (s[a]=' ') then
begin
if not odd(a-i)and(a<>m) then
for b:=i to a do write(s[b]);
i:=a+1;
end;
if a=m then if odd(a-i) then for b:=i to a do write(s[b]) end;
readln
end.

[Sazary]

unit zayai;
interface
function PloshOsn(a : real) : real;       {площадь основания}
function Objem(a,h : real) : real;        {объем}
function ugol(a,h : real) : real;        {угол при вершине диагонального сечения}
function DlinaDiag(a : real) : real;     {длина главной диагонали}
function PloshPov(a,h : real) : real;    {площадь полной поверхности}

implementation
function PloshOsn(a : real) : real;
 begin
 PloshOsn := a*a;
 end;

function Objem(a,h : real) : real;
 begin
 Objem := (1/3)*a*a*h;
 end;

function ugol(a,h : real) : real;
 begin
 ugol := arctan(sqrt(2)*h/a);
 end;

function DlinaDiag(a : real) : real;
 begin
 DlinaDiag := a*sqrt(2);
 end;

function PloshPov(a,h : real) : real;
 var ht1,ht2 : real;
 begin
 ht1 := a/2;
 ht2 := sqrt(sqr(h)+sqr(ht1));
 PloshPov := a*a + 2*a*ht2;
 end;

begin

end.

Функции для образующей здесь нет, т.к. я не знаю что есть образующая для пирамиды (это же не фигура вращения). Если имеется в виду ребро, то несложно добавить (в секцию implementation):

function Obraz(a,h : real) : real;
 begin
 Obraz := sqrt(sqr(a/sqrt(2))+sqr(h));
 end;

и

function Obraz(a,h : real) : real;

в секцию interface

[Sazary]

задание 3

uses crt;
const n=10;
var
i,k : integer;
d : real;
p : array[1..n] of real;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 p[i] := random(10);
 write(p[i]:5:2,' ');
 end;
writeln;
writeln('-----');
{-----}
write('Vvedite chislo: ');
readln(d);
writeln('------');
k := -1;
for i:=1 to n do
 if p[i]=d then k := i;

if k = -1 then writeln('Chislo otsutstvuet v posledovatelnosti')
else writeln('Poslednee vhozhdenie v pozicii  ',k);

readln;
end.