ПОЖАЛУЙСТА, ПОМОГИТЕ! ПАСКАЛЬ! 1. Задать случайным образом 10 чисел от 22 до 135. Напечатать те из них, которые больше 100. 2. Задать с клавиатуры А и N. Напечатать значение А в степени N. 3. Задать с клавиатуры N. Напечатать значение N! = 1*2*3*4*...*N. 4. Напечатать большие русские буквы в строчку через 2 пробела. 5. Напечатать маленькие русские буквы в 2 строчки: от "я" до "р", от "п" до "а". 6. Ввести с клавиатуры 5 значений для Х. Вычислить и напечатать для каждого из них значение Y по правилу: а) б) 3*X, если X=9 7.Напечатать маленькие английские буквы в столбик от "z" до "а".

PascalABC.NET

1)
 const     n = 10;
 var
   a : array [1..n] of integer;
   i : integer;
 begin 
  randomize; 
   for i := 1 to n do 
    begin 
    a[i] := 22 + random(114); 
    if a[i] > 100 then 
     writeln (a[i]); 
    end;
  end.

2)
 var 
  a,n,r,i : integer; 
   begin 
 r := 1; 
 readln (a,n); 
  for i := 1 to n do 
   r := r * a;
  writeln (r);
   end.

3)

 var 
 n,i,r : integer;
    begin 
 r := 1; 
 readln (n);
   for i := 1 to n do
    r := r *i; 
 writeln (r);
  end.

4)
 var 
 i : integer;
 begin
  for i := 192 to 223 do
   write(chr(i); ,  ); 
end.

5)
 var 
 i : integer; 
   begin  
  for i := 255 downto 240 do
   write (chr(i), );  
  writeln();  
  for i := 239 downto 224 do 
 write (chr(i), );  
  end.

7)
 var 
 i : integer; 
begin  for i := 122 downto 97
do   writeln(chr(i)); 
end.