С: по заданным значениям переменных вычислить значение выражения (x+1)^2+3(x+1) при х=1, 3 в заранее

Var x,c: real; begin readln (x); c: =(x+1)*(x+1)+3*(x+1); writeln (c); end.   по запросу просто введешь 1,3

Type mas=array[1..1000] of integer; var     a: mas;     i,h,x,k: integer; begin     readln(h,x);     k: =0;     for i: =x to h+x do       begin           read(i);           k: =k+1;           a[k]: =i;       end;     for i: =1 to k do       write(a[i], ' '); end. на всякий случай написала вывод массива

По логике так: надо расположить по возрастанию, то есть первое  меньше  второго, второе  меньше   третьего.  поэтому под цифрами 1 и 2 надо поставить "больше": если цифры  поменяются местами, то станет "меньше", что нам и надо. порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". ну а "к пункту" можно только "вернутся")1)начало.2) сравни первое и второе числа; если первое больше   второго , то поменяй их местами.3)сравни второе и третье  числа; если второе больше   третьего, то поменяй их местами.   4)если теперь три числа не  расположены  в порядке убывания, то исполни пункт 5) этого алгоритма; иначе вернись   к пункту    2).5)конец.