delphi программы

[andrey/akm]

1. вычислите результат выражения ((A/(B+C))-(C/(A-C))*E/F в виде обыкновенной дроби, где A,B,C,E,F - целые числа. Воспользуйтесь функцией сложения двух дробей.
2.задан массив вещественных чисел А и его размер N. Составить и вывести на экран два массива: массив повторяющихся элементов исходного массива и массив их частот.
3.дан массив, содержащий информацию об игрушках: название, стоимость и возрастные границы. Создайте программу с процедурами ввода массива, вывода и поиска ответа на вопрос, имеется ли мяч стоимостью 75 руб., подходящий для детей от 3 до 7 лет. Если да, то выведите сведения об игрушке.
4.задана строка, состоящая из нескольких слов. Вывести эти слова в ступенчатом виде. Например, для строки, "aaa bbbb ccccc" вывод будет слудующим: aaa
bbbb
cccccc
{если кто то может написать эти программы можете выложить их сюда, или может есть у кого нибудь уже готовые программы, заранее спасибо)}

[Poma][a]

Воспользуйтесь функцией сложения двух дробей.

Вот программка для сложения 2-ух дробей, остальное сами :

{1. Сумма дробей}
program SummaFaction;


function Gcd (a, b : Integer) : Integer;

begin
	while (a <> 0) and (b <> 0) do
		if a > b then

			a := a mod b
		else
			b := b mod a;
	Gcd := a + b ;
end;

procedure PrintFraction (a, b : LongInt);

begin
	if a = b then
		WriteLn ('1')
	else if a = 0 then
		WriteLn ('0')
	else if b = 1 then
		WriteLn (a)
	else if a > b then begin
		Write (a div b);
		if a mod b <> 0 then
			WriteLn (' ', a mod b, '/', b)
	end
	else
		WriteLn (a, '/', b);
end;

var
	 a, b, c, d, r : LongInt;

begin

	ReadLn (a, b, c, d);
	r := Gcd (a,b);
	a := a div r;
	b := b div r;

	r := Gcd (c, d);
	c := c div r;
	d := d div r;

	r := Gcd (b, d);
	r := b div r * d;
	a := a * (r div b);
	c := c * (r div d);
	a := a + c;
	b := r;

	r := Gcd (a, b);

	PrintFraction (a, b)
end.

Подумать только ведь когда-то я и program и комментарии писал..
Ну а так у Вас есть какие-то наработки?