Дан символ. Определи, данный символ управляющий или изображаемый.

Символ: U

Var a,b,c,x,z,t,k: integer;
begin
  write('a b c через пробел:  ');  readln(a,b,c);
  write('x z t через пробел:  ');  readln(x,z,t);
  if a>b then swap(a,b);
  if b>c then swap(b,c);
  if b<a then swap(a,b);
  if x>z then swap(x,z);
  if z>t then swap(z,t);
  if z<x then swap(x,z);  
  k:=0;
  if a>=x then 
     if (b>=z) and (c>=t) then k:=1;
  if (a<=x) then
     if (b<=z) and (c<=t) then k:=1;
  if k=1 then writeln('да')
  else writeln('нет');
end.

a b c через пробел:  10 7 3
x z t через пробел:  3 5 9
да

a b c через пробел:  8 5 7
x z t через пробел:  9 7 4
нет

Const m=200;
var a: array[1..m] of integer;
    i,k1,k2,p,n: integer;
begin
   write('количество элементов массива:  ');
   readln(n);
   randomize;
   write('массив:  ');
   for i:=1 to n do
   begin
     a[i]:=random(-40,40);
     write(a[i],' ');
   end;
   writeln;
   write('k1 k2 через пробел: ');  readln(k1,k2);
   p:=1;
   if (k1 in [1..n]) and (k2 in [1..n]) and (k2>k1) then 
   begin
     for i:=k1 to k2 do p:=p*a[i];
     writeln('произведение: ',p);
   end
   else writeln('недопустимые значения k1 и k2  ',k1,' ',k2);  
end.   

количество элементов массива:  10
массив:  18 -40 5 -5 -22 -1 -3 22 -11 37 
k1 k2 через пробел: 3 5
произведение: 550