Задачи (Паскаль)

[enigma011]

Очень нужна ваша помощь в решении 9 задач в Паскаль... Плиз помогите );

1) Вычислить, принадлежит ли точка M(x,y) четырехугольнику с координатами
вершин A(0,4), B(−4,0) , C(0,−4), D(4,0) .


2) Вычислить длину стороны a и площадь S десятиугольника, который или вписан в
окружность с радиусом R, или описан вокруг нее.

3) В одномерном массиве все положительные элементы увеличить в три раза, а все
отрицательные элементы уменьшить в восемь раз.


4) В первом одномерном массиве найти все нечетные элементы, во втором
одномерном массиве найти все четные элементы и из них сформировать
одномерный массив.


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


6) Задана запись, имеющая три поля: первое – площадь нижнего основания
усеченного конуса, второе – площадь верхнего основания усеченного конуса,
третье – высота усеченного конуса. Найти объем и площадь всей поверхности
такого усеченного конуса.


7) Задана строка текста длиной не менее двадцати символов. Определить, сколько
пробелов имеется в этой строке текста.


8) Объявить какой-либо заранее созданный файл как нетипизированный и вывести
все четные учетверенные слова (одно учетверенное слово равно восьми байтам) из
этого файла на экран монитора.


9) Заданы два текстовых файла. Поменять содержимое этих файлов местами, при
этом названия файлов должны сохраниться.

[__STDC__]

В чем проблема? Задания-то все в две строки...

***
только не нужно говорить, что проблема в том, что у вас весь год не было инфы, а теперь вот потребовали программы

[bobby2008]

Кажется, что кому-то нужно написать все лабораторные за весь учебный семестр...

[__STDC__]

Первая.. для разнообразия что-нибудь такое..

type
	coord = record
		x,y:shortint;
	end;
	
var
	p1,p2,p3,p4,m:coord;
begin
	p1.x :=  0;  p1.y :=  4;
	p2.x := -4;  p2.y :=  0;
	p3.x :=  0;  p3.y := -4;
	p4.x :=  4;  p4.y :=  0;
	
	readln(m.x,m.y);
	if (4-abs(m.x) > 0) and (abs(m.y) <= 4-abs(m.x)) then
		writeln('IN')
	else
		writeln('OUT');
	readln;	
end.