решить задачи в Паскале ABC

[Нина2012]

Помогите пожалуйста решить задачи в Паскале ABC, недавно начали проходить, мало что понимаю...
Задача 1.
Cоставить программу, которая: 1)Запрашивает ввод целого положительного числа не более 100;2)Проверяет верность ввода(выводит предупреждение при неверном вводе);3)При верном вводе считает сумму всех чисел от 1 до введенного включительно и выводит результат.

Задача 2.
Составить программу, которая: 1)запрашивает координаты четырехугольника(в том числе отрицательные и дробные);2)С помощью геометрических формул проверяет, не является ли данная фигура прямоугольником;3)выводит результат.

[Leshii]

1)

Program count;
Uses crt;
var i,n:integer;
    sum:real;
begin
clrscr;
writeln('Vvedite 4islo: ');
readln(n);
sum:=0;
if (n<>100) and (n<100) then
begin
for i:=1 to n do
sum:=sum+i;
end
else writeln('Nepravilnui Vvod 4isla');
writeln(sum:1:2);
end.

2)Ну ,а в геометрии тоже мало понимаеш?)Напишы хоть как решать будеш, какой-то усный алгоритм) Тут я где-то написал тему "Модуль" там аналогия, но проверка треугольника.

[Gravial]

Недавно начали изучать Free Pascal помогите плз:

Задача: Округлить действительное положительное число х, меньшее 5, до ближайшего целого числа:

Nx={0, если х<0.5,
1, если 0,5<=x<1,5
2, если 1,5<=x<2,5
3, если 2,5<=x<3,5
4, если 3,5<=x<4,5
5, если x>=4,5}

Помогите решить: как записать в паскале "0,5<=x<1,5"? и другие аналогичные соответственно?

Моё начало программы:

Var
x:real;
Nx:integer;
Begin
write('Vvedite х menshee 5');
read(x);
if x<0,5 then
Nx:=round(x);
...

[Leshii]

1) Вариант решения твоей задачи и менее геморный.Но с моими ошибками)

Program rightround;
Uses crt;
var x:real;
nx:integer;
begin
clrscr;
x:=0;
while (x<>5) do
begin
x:=x+0.5;
nx:=round(x);
writeln(nx:1:2);
end;
readln;
end.

2)Ну и собственно твой

Program rightroundd;
Uses crt;
var x:real;
    nx:integer;
begin
clrscr;
writeln('Vvedite x:');
readln(x);
if x<0.5 then x:=0
else
if (x>=0.5) and (x<1.5)then x:=round(x)
else
if (x>=1.5) and (x<2.5)then x:=round(x)
else
if (x>=2.5) and (x<3.5)then x:=round(x)
else
if (x>=3.5) and (x<4.5) then x:=round(x)
else if (x>=4.5) then x:=5;
writeln(x:1:1);
readln
end.