Написати програму , яка визначає чи є введене число двох-значним.)=)

Program zn; uses crt; var x: integer; begin clrscr; write ('введите число: '); readln (x); if (x> =10) and (x< =99) then writeln ('число  ', x, ' - двухзначное') else writeln  ('число  ', x, ' - не  двухзначное'); readkey; end.

Var   a: array [1..12] of real;   //массив стоимости   s: real;                         //сумма   i: integer; begin   s: = 0;   for i: = 1 to 12 do   {12 раз вводим стоимость предмета и прибавляем ее к значению s}   begin     writeln('введите стоимость предмета');     readln(a[i]);     s: = s + a[i];   end;   writeln('общая стоимость всех предметов:   ', s); end.

Язык с++: #include < iostream> using namespace std; void main(){ int n=5,  k,  f=1; //f - факториал, n - число, фак-ал которого нужно вычислить while(k< =n){ f*=k; k++; } cout< < "факториал числа  "< < n< < " равен : "< < f< < endl; } pascal: program z4; var n, k, f: integer; begin write('введите число, для которого нужно вычислить факториал :   '); readln(n); k: =1; f: =1; while(k< =n) begin f: =f*k; k: =k+1; end; writeln('факториал равен  :   ', f); end.