1. Найти наименьшее из двух заданных чисел…

Паскаль________________1. Задание.uses crt; vara,b, c: real; beginreadln (a, b); if a< b then writeln ('min ', a); if a>b then writeln ('min ', b); if a=b then writeln ('vse ravni'); readkey; end.__________2. Задание.uses crt; vara,i: real; beginreadln (a); i: =abs (a); writeln (i); readkey; end.____________3 задание.uses crt; vara,i: integer; st: string; beginreadln (a); str (a, st); if length (st)=3 then writeln ('chislo trehznachnoe') else writeln ('chislo ne trexznachnoe'); readkey; end.