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

1)  program pr; var a: integer; beginwriteln('введите число'); 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; beginwriteln('введите 2 заданых числа'); readln(a); readln(b); if a> b then b: =10 else a: =10; writeln(a); writeln(b); end.

(проверено и откомпелировано с pascal.net)

Using system; namespace consoleapp {       internal class program {             private static void main() {                   var number = 0;                   int n;                   do {                         console.writeline("введите число");                         n = convert.toint32(console.;                         if (n ! = 0 & & (n % 5 == 0 || n % 7 == 0)) {                               number++;                         }                   } while (n ! = 0);                   console.writeline("кол-во = " + number);                   console.readkey();             }       } }

Var   a: array of byte; //мы ведь не хотим выйти за пределы даже  int64?   n, i: byte;           //больше и не пригодится, массива из 255 значений хватит уж   l: int64 : = 1;       //произведение - большая цыферка begin   readln(n);   system.array.resize(a, n);   for i : = 0 to (n - 1) do   begin     write('a[', i, '] = ');     readln(a[i]);     l *= a[i];   end;   writeln(l); end.