5 задач на Pascal

[OldStaR]

Проблема такая, забыл всё поголовно, что изучали по паскалю, поэтому решил обрататится к вам. Если честно то я даже не представляю, что писать.
Задачи:

1)If
Даны долгочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соотвествено 1 или 2. Если точка не лежит на координатных осях, то вывести 3.

2)Integer
С начало суток прошло N секунд (N - целое). Найти количество секунд, прошедших с начала последней секунды.

3)For
Дано целое число N (>0). Используя один цикл. Найти сумму 1+1/(1!)+1/(2!)+1/(3!)+...1/(N!)

4)Boolean
Дано трехзначное число. Проверить истиность выскавысказывания: "цифры данного числа образуют возрастающую или убывающую последовательность."

5)Case
Дано целое число в диапазоне 1-7. Вывести строку-название дня недели соответсвено данному числу.

[maladoy]

IF

if (x=0) and (y=0) then writeln('0')
else if (x=0) and (y<>0) then writeln('2')
else if (x<>0) and (y=0) then writeln('1')
else writeln('3');

Case

case d of 
1:writeln('monday');
2:writeln('tuesday');
3:writeln('wednesday);
4:writeln('thursday);
5:writeln('friday');
6:writeln('saturday');
7:writeln('sunday');
end;

[Chudo4258]

5

readln(n);
case n of
1: Writeln('Пн');
2: Writeln('Вт');
3: Writeln('Ср');
4: Writeln('Чт');
5: Writeln('Пт');
6: Writeln('Сб');
7: Writeln('Вс');
end;

[Chudo4258]

4

readln(n);
a:= n mod 10;
b:= n div 10 mod 10;
c:= n div 100;
if (a>b) and (b>c) then writeln('убывающая');
if (a<b) and (b<c) then writeln('возрастающая');

или

var p,q:boolean;
     n:integer;
begin
readln(n);
a:= n mod 10;
b:= n div 10 mod 10;
c:= n div 100;
p:=(a>b) and (b>c); 
q:=(a<b) and (b<c);
if p then writeln('убывающая');
if q then writeln('возрастающая');
end;

[OldStaR]

Огромное спасибо мужики!

[telle]

3.

readln(n);
for i:=1 to n do
begin
if i:=1 then s:=1 else s:=s+(k/s);
k:=(1/i)*k;
writeln ('cymma elementoB=', s);
end;

[telle]

Сообщение от telle

3.

readln(n);
for i:=1 to n do
begin
if i:=1 then s:=1 else s:=s+(k/s);
k:=(1/i)*k;
end;
writeln ('cymma elementoB=', s); { выводится конечное (верно посчитанное) значение }

writeln нужно в не цикла писать...

[OldStaR]

Telle а так нормуль?

program pomow;
var n,i,buff:integer;
rezz:real;
function fact_f(a, b:integer):longint;
var
rez:longint;
i:integer;
begin
rez:=1;
for i:=a to b do
  rez:=rez*i;
  fact_f:=rez;
end;
begin
rezz:=1;
writeln('Введите n');
readln(n);
for i:=1 to n do
  begin
   buff:=fact_f(1,i);
   rezz:=rezz+(1/buff);
  end;
writeln('Ответ = ',rezz:8:5);
end.