Помогите написать программу:)

Просьба к вам помочь написать три программки, сами по себе они банальны, и сделать их не трудно, у знающих людей много времени не заберут, но я к сожалению не знаю Pascal'ля, а делать то нужно. Отблагодарю репутацией
1) Составить программу, которая вычисляет произведение чисел от 1 до N. Значение N вводиться с клавиатуры
2)С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, кол-во положительных и кол-во нулей среди введенных числе. Значение N вводиться с клавиатуры.
3) Напечатать те из двухзначных чисел, которые делятся на 4, но не делятся на 6

1) var n,p,i:integer;
begin
read(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln(p);
end.
остальное лень

И еще
4) Составить блок-схему и программу для вычисления значения выражения: a:(а-6,7) +1:a
5) Сделать программу задание 4 при а= 6,7; 0; 2,1.
6) Составить блок-схему и программу для вычисления значения функции
|sin x + x(в кубе), если 5<=x<=11
y= {|cos(x-1), если x>= 11
|cos x : (x(квадрат) + 4) при x<5
7) Сделать программу задание 6 при x= 6,5; -0,2; 15

Sator1k, Тебе сюда

[quote name='azat2012']Sator1k, Тебе сюда [/quote]
Я уже тут написал, по-этому дублировать не буду

2)http://rghost.ru/41593424
3)http://rghost.ru/41593436

Блок-схемы составлять лень...
4)
[quote]var a,f:real;
begin
readln(a);
f:=a/(a-6.7)+1/a;
if (a=6.7) or (a=0) then writeln('На 0 делить нельзя') else writeln(x);
end.[/quote]

5)
[quote]function f(a:real):real;
begin
var x:real;
x:=a/(a-6.7)+1/a;
if (a=6.7) or (a=0) then writeln('На 0 делить нельзя') else writeln(x);
end;
begin
f(6.7);
f(0);
f(2.1);
end.[/quote]

6)
[quote]var x:real;
function f(xf:real):real;
begin
var a:real;
if (xf>=5) and (xf<=11) then a:=sin(xf)+xf*xf*xf
else if (xf>11) then a:=cos(xf-1)
else a:=cos(xf)/(xf*xf+4);
writeln(a);
end;
begin
readln(x);
f(x);
end.[/quote]

7)
[quote]function f(xf:real):real;
begin
var a:real;
if (xf>=5) and (xf<=11) then a:=sin(xf)+xf*xf*xf
else if (xf>11) then a:=cos(xf-1)
else a:=cos(xf)/(xf*xf+4);
writeln(a);
end;
begin
f(6.5);
f(-0.2);
f(15);
end.[/quote]

Sator1k, Меня больше волнует то, что у вас скоро будут лабы где тебе придется решать по 3-5 задач намного сложнее этих с несколькими переменными, и формулами Как ты тогда будешь выкручиваться?

Добавлено через 37 секунд
v-rico, с нулем четко придумал

Если ты паскаль не знаешь, другие языки можешь не пробывать

Joke_for_F4N, да там можно и без этого... Например PascalABC мне писал, что ответ - "Бесконечность"... Во ФриПаскале не пробовал.

[quote name='Gektor']Если ты паскаль не знаешь, другие языки можешь не пробывать[/quote]

Красава, шутканул на ок

Kapitan, пфффф.... если он не выучит базу, ты думаешь он в C# будет как про втыкать?

[quote name='Gektor']Если ты паскаль не знаешь, другие языки можешь не пробывать[/quote]

Что за хрень ты пишешь? Я с С++ сразу начинал, если не прогуливать занятия и вдумываться в то, что делаешь, несложно )

[quote name='Joke_for_F4N']Kapitan, пфффф.... если он не выучит базу, ты думаешь он в C# будет как про втыкать?[/quote]

а по-твоему паскаль это база?) Ты хоть синтаксис паскаля и шарпа видал?
Если бы видел, то понял бы, что между ними дохрена различий. Мне например(я делфи знаю немного, ну и паскаль по-совместительству естественно), после синтаксиса делфи сложновато смотреть на код шарпа

var a,b,c,d:integer;
begin

остальное лень

Kapitan, я говорю о том что если он даже не научится основам алгоритмизации и решения элементарного в паскале, то что его ждет в дальнейшем? Если даже не пытаться, то ты емух оть что дай ничего у него не выйдет.

[quote name='Joke_for_F4N']Kapitan, я говорю о том что если он даже не научится основам алгоритмизации и решения элементарного в паскале, то что его ждет в дальнейшем? Если даже не пытаться, то ты емух оть что дай ничего у него не выйдет.[/quote]

а нахрена учится основам алгоритмизации в паскале? Имхо, легче сразу начать на шарпе или на плюсах кодить, ибо потом будет сложно перескакивать.

Kapitan, я вообще про алгоритмизацию, не только про паскаль