1.Найти наименьшее из 2-ух данных чисел a и b. 2.Дано целое

1.program zz1;

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

begin

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

read(a);  

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

read(b);

if a lt; 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 gt; 99)and(a lt; 1000) then write( число трехзначное )

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

end.