Дан массив целых чисел состоящих из 20 элементов заполните его с клавиатуры. вывести индексы тех элементов значения которых больше числа а

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var p := ReadArrInteger('Вводите:', 20);

 var a := ReadInteger('a =');

 p.IndexesOf(t -> t > a).Println; // индексы от нуля!

 p.IndexesOf(t -> t > a).Select(t -> t + 1).Println; // номера от 1

end.

Пример

Вводите: -16 30 -24 30 -14 -11 -16 -2 -14 7 -23 9 9 11 -10 -5 25 30 -22 -6

a = 5

1 3 9 11 12 13 16 17

2 4 10 12 13 14 17 18

Выберите, что Вам нужно и удалите лишний вывод

За 4 умножения получить
var a, b: integer;
begin
     readln(a);
     b := a * a;
     b := b * b;
     b := b * b;
     b := a * b;
     writeln(b);
end.

Вывести числа [a; b] и их квадраты
Var a, i, b: integer;
begin
     readln(a, b);
     for i := a to b do
          writeln(i, '  ', sqr(i));
end.

Произведение 2-х чисел
Var a, b: integer;
begin
     readln(a, b);
     writeln(a * b);
end.

Максимальное и минимальное из 100 введённых чисел без использования массивов:
var k1, mi, ma, i: integer;
begin
readln(ma);
readln(mi);
for i := 1 to 98 do
begin
readln(k1);
if (ma < k1) then ma := k1;
if (mi > k1) then mi := k1;
end;
writeln(ma, ' - ', mi);
end. 

Перевод из 10чной СС в 2чную
Var b:array [1..255] of integer;
    a, i, n:integer;
begin
     readln(a);
     i := 0;
     while (a >= 1) do
     begin
          i := i + 1;
        b[i] := a mod 2;
      a := a div 2;
     end;
   n := i;
   for i := n downto 1 do write(b[i]);
end.

X в степени Y
 var x, y: real; 
begin
      readln(x, y);
      writeln(exp(ln(X) * Y)); 
end.

Вот)

Uses crt;
var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real;
s:real;
begin
writeln('Введите х координаты вершин а и b');
readln(xa,xb);
writeln('Введите y координаты вершин а и b');
readln(ya,yb);
xab:=xb-xa;
yab:=yb-ya;
ab:=sqrt(xab*xab+yab*yab);
writeln('Введите х координаты вершин а и с');
readln(xa,xc);
writeln('Введите y координаты вершин а и c');
readln(ya,yc);
xac:=xc-xa;
yac:=yc-ya;
ac:=sqrt(xac*xac+yac*yac);
writeln('Введите х координаты вершин b и с');
readln(xb,xc);
writeln('Введите y координаты вершин b и c');
readln(yb,yc);
xbc:=xc-xb;
yab:=yc-yb;
bc:=sqrt(xbc*xbc+ybc*ybc);
p:=(ab+bc+ac)/ 2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln(s);
end.