Решить 2 1)определить является ли введенное с клавиатуры число,положительным.отрицательным,или 0-м. 2)меньше из 2-х заданных чисел заменить числом 10.

1) Program Pr;
var a:integer;
Begin
Writeln('Введите число');
Readln(a);
if a>0 then writeln('Число положительно');
if a=0 then writeln('Число является 0-эм');
if a<0 then writeln('Число отрицательно');
end.

2)Program Pr;
var a,b:integer;
Begin
Writeln('Введите 2 заданых числа');
Readln(a);
Readln(b);
if a>b then b:=10
else a:=10;
writeln(a);
writeln(b);
end.

(Проверено и откомпелировано с