предели вид информации, канал получения информации в зависимости от её восприятия человеком. Обращай внимание на основную функцию и свойство предмета! Используй для ответов слова: сладкий, осязание, мягкость, музыка, красота, слух, зрение, запах, кожа, ухо, глаз, нос, язык, тактильная, звуковая, зрительная, обонятельная, вкусовая, тепло, вкус, обоняние, кислый, солёный.

Program nalko;
uses crt;
const n = 10;
var
  a:array [1..n] of real;
  i,k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  Randomize;
  {ввод чисел}
  for i:=1 to n do
    begin
      write('Введите ',i,'-е число '); readln (a[i])
    end;
  writeln('Корни и квадраты: ');
  for i:=1 to n do
    begin
      write('A[',i,']=',a[i]:7:2,'  корень');
      if a[i]<0
        then write(' не существует')
        else write('=',sqrt(a[i]):7:2);
      writeln('   квадрат=',a[i]*a[i]:7:2);
    end;
end.

Program Linao;
uses crt;
const n = 20;
var
  x:array [1..n] of real;
  i,k,j,sum:integer;
  max, min,temp: real;
begin
  writeln('*** alphaues is thinking... ***');
  for i:=1 to n do
    begin
      write('*');
      for j:=1 to n*100000 do j:=j;
    end;
  writeln;
  k:=0;
  randomize;
  sum:=0;
  writeln('негативні елементи: ');
  for i:=1 to n do
    begin
      x[i]:=random(101)-50;
      if x[i]<0 then
        begin
          sum:=sum+i;
          writeln(i,'-й елемент, рівний ',x[i]);
          k:=1;
        end;
    end;
  if k=0 then
    writeln('Немає таких елементів!');
end.