Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число. Если число положительное, то вывести его на печать. иначе вывести " Данное число не является положительным ". задача 3 - Даны два числа. Вывести сначала меньшее. затем большее число. задача 4 - Даны два числа. Вывести порядковый номер меньшего числа. задача 5 - Дано целое число. Если число положительное, то вывести его на печать. Если отрицательное, вывести число, умноженное на - 1. задача 6 - Найдите наименьшее из трех заданных чисел

Задача 1.

program zz1;

var a:integer;

begin

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

read (a);

if (a > 0) then write (' Число положительное ');

if (a < 0) then write (' Число отрицательное ');

if (a = 0) then write (' Число равно нулю ');

end.

Задача 2.

program zz1;

var a:integer;

begin

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

read (a);

if (a > 0) then write (a)

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

end.

Задача 3.

program zz1;

var a, b:integer;

begin

write ('введите первое число');

read (a);

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

read (b);

if a < b

then write (a, ' ', b)

else write (b, ' ', a);

end.

Задача 4.

program zz1;

var a, b:integer;

begin

write ('введите первое число ');

read (a);

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

read (b);

if a < b

then write (1)

else write (2);

end.

Задача 5.

program zz1;

var a:integer;

begin

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

read (a);

if a > 0

then write (a)

else write (a * (-1));

end.

Задача 6.

program zz1;

var a, b, c, min:integer;

begin

write (' введите первое число ');

read (a);

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

read (b);

write (' введите третье число ');

read (c);

if (a
if (b
if (c
write (' наименьшее = ', min);

end.