Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю"

задача 2 - дано целое число. Если число положительное, то вывести его на печать. иначе вывести " Данное число не является положительным ".

задача 3 - Даны два числа. Вывести сначала меньшее. затем большее число.

задача 4 - Даны два числа. Вывести порядковый номер меньшего числа.

задача 5 - Дано целое число. Если число положительное, то вывести его на печать. Если отрицательное, вывести число, умноженное на - 1.

задача 6 - Найдите наименьшее из трех заданных чисел

1.

var

a:integer;

begin

write ('Введите целое число : ') ;

readln (a) ;

if a>0 then

writeln ('Число - положительное ') else

writeln ('Данное число не является положительным ') ;

if a=0 then

writeln ('Число равно нулю') ;

readln;

end.

2.

var

a:integer;

begin

write ('Введите целое число : ') ;

readln (a) ;

if a>0 then

writeln ('Число - положительное ') else

writeln ('Данное число не является положительным ') ;

readln;

end.

3.

var

a, b:integer;

begin

write ('Введите два числа : ') ;

readln (a, b) ;

if a>b then

writeln (a,#10, b) else

writeln (b,#10, a) ;

readln;

end.

4.

var

a, b: integer;

begin

writeln ('Введите два числа') ;

readln (a, b) ;

if a < b then writeln ('Порядковый номер меньшего числа = 1') ;

if b < a then writeln ('Порядковый номер меньшего числа = 2') ;

if a = b then writeln ('Числа равны') ;

end.

5.

var

a:integer;

begin

write ('Введите число: ') ;

readln (a) ;

if a>0 then

writeln (a) ;

if a<0 then

writeln (a*-1) ;

readln;

end.

6.

var

a, b, c, n:real;

begin

writeln ('Введите три числа : ') ;

readln (a, b, c) ;

n:=a;

if b
n:=b;

if c
n:=c;

writeln ('Меньшее из введённых чисел : ', n) ;

readln;

end.