Как известно, наиболее сложно при управлении автомобилем (на дорогах с правосторонним движением) поворачивать налево, поскольку при этом нужно пропускать автомобили, двигающиеся навстречу. Поэтому в некотором городе запретили все повороты налево, то есть на перекрёстках можно либо продолжить движение в том же направлении, либо повернуть направо. Разворачиваться и поворачивать налево на перекрёстках запрещено. План города представляет собой прямоугольную сетку, в узлах сетки находятся перекрёстки, соединённые дорогами. Расстояние между перекрёстками равно 1. Но некоторые проезды между перекрёстками закрыты, передвигаться можно только по белым улицам (в том числе и по внешней белой границе), проезжать по серым улицам и перекрёсткам нельзя. Ваш автомобиль находится на отмеченном изображением автомобиля перекрёстке и движется в направлении стрелки. То есть следующий перекрёсток, на который может приехать автомобиль, находится в направлении стрелки. Вам необходимо приехать на перекрёсток, обозначенный звёздочкой. Вы можете приехать на этот перекрёсток с любой из трёх возможных сторон. Постройте не содержащий левых поворотов маршрут автомобиля кратчайшей длины. ответ необходимо записать в виде последовательности целых чисел, каждое число может принимать значение от 1 до 9. Число равно количеству кварталов (промежутков между перекрёстками), которое автомобиль проезжает в прямом направлении, затем автомобиль поворачивает направо. Например, последовательность «4 1» означает, что автомобиль проезжает 4 квартала, поворачивает направо, затем проезжает 1 квартал. В этом случае автомобиль завершит движение в правом нижнем углу карты, если он стартует в направлении стрелки.

ответ: 1167431
как-то так

1)

Var

a:array[1..10] of integer;

i:integer; 

begin

for i:=1 to 10 do

read(a[i]);

randomize;

for i:=1 to 10 do

a[i]:=random(136)+22;

for i:=1 to 10 do

if a[i]>100 then writeln(a[i]);

end.

2.

var

a,n:integer;

begin

readln(a,n);

a:=a^n;

writeln(a);

end;

6.

var

x:array[1..5] of real;

i:integer;

begin

for i:=1 to 5 do

begin

 

read(x[i]);

 

if x[i]=9 then x[i]:=x[i]*3;

if x[i]>9 then x[i]:=x[i]/10;

 

writeln(x[i]); 

end; 

 end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

program exs;
var a : array [1..1000] of integer;
n, i : integer;

procedure qsort(l, r: integer);
var i, j, key, buf : integer;
begin
i := l;
j:= r;
key:=a[(l+r) div 2];
repeat
while a[i] < key do inc(i);
while a[j] > key do dec(j);
if i<=j then begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
inc(i);
dec(j);
end;
until (i>j);
if (l < j) then qsort(l, j);
if (i < r) then qsort(i, r);
end;

begin
readln(n);
for i:= 1 to n do begin
read(a[i]);
end;
qsort(1, n);
for i:=1 to n do begin
write(a[i], ' ');
end;
end.