Водном городе по соседству жили четыре друга ivanov-petrov семёнов и гончаров они люди разных профессий строитель хирург менеджер и учитель но это не мешает и дружба о них известно что первая иванов и петров соседи по одному дома и часто ездит на работу вместе 2 петров старше семёнова 3 иванов часто выигрывают гончарова шахматы 4 строение всегда идёт на работу по дороге через парк 5 учитель дальше всего живёт хирург 6 менеджеры учителя встречались в последний раз когда учитель проводил собрание для родителей на которой пришел менеджер 7 учителя старшие хирургии менеджером​

Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.

Program Sequence;

var old, new : real; 

f : boolean; 

begin
write('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.

4.
var
a:real;
begin
write('Введите количество мегабайт=');read(a);
writeln('Количество килобайт=',a*1024);
writeln('Количество байт=',a*1024*1024);
writeln('Количество бит=',a*1024*1024*8);
end.

5.
var
a,b,c,p,S:real;
begin
write('Введите сторону a=');read(a);
write('Введите сторону b=');read(b);
write('Введите сторону c=');read(c);
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write('S=',s:5:2);
end.

6.
var
a:integer;
begin
write('Введите количество суток=');read(a);
writeln(24*a,' ','часов');
writeln(60*24*a,' ','минут');
writeln(60*60*24*a,' ','секунд');
end.