1. Найти наименьшее из двух заданных чисел a и b. 2. Дано целое число х. вывести на экран модуль числа х. 3. Определить, является ли заданное число трёхзначным.

1. program zz1;

var a, b:integer; / /задаем переменные целого типа

begin

write ('введите первое число '); / /вводим с клавиатуры первое число

read (a);

write ('введите второе число '); / /вводим с клавиатуры второе число

read (b);

if a < b then write (' меньшее = ', a)

else write (' меньшее = ', b); / /выводим ответ

end.

2. program zz1;

var x:integer; / /задаем переменную целого типа

begin

write ('введите число x'); / /вводим с клавиатуры число

read (x);

write (' модуль числа х = ', x); / /выводим ответ

end.

3. program zz1;

var a:integer; / /задаем переменную целого типа

begin

write ('введите число '); / /вводим с клавиатуры число

read (a);

if (a > 99) and (a < 1000) then write (' число трехзначное ')

else write (' число не трехзначное '); / /выводим ответ

end.