Реализовать с помощью 3-х циклов: while, repeat, for) Составить программу, которая выдавала бы сообщение ' true ', если последовательность из N целых чисел, вводимых с клавиатуры, является возрастающей

Это реализовано с помощью цикла for:

Program p1;

Var a1, a2, k, i:integer;

Begin

Write ('Введите число: ') ;

Readln (a1) ;

For i:=0 to 1 do

Begin

Write ('Введите число: ') ;

Readln (a2) ;

if a2>a1 then

k:=k+1;

a1:=a2;

End;

if k=2 then

Writeln ('Эта последовательность является возрастающей') else

Writeln ('Эта последовательность не является возрастающей') ;

End.

Это реализовано с помощью цикла while:

Program p2;

Var a1, a2, k, i:integer;

Begin

Write ('Введите число: ') ;

Readln (a1) ;

While i2 do

Begin

Write ('Введите число: ') ;

Readln (a2) ;

if a2>a1 then

k:=k+1;

a1:=a2;

i:=i+1;

End;

if k=2 then Writeln ('Эта последовательность является возрастающей') else Writeln ('Эта последовательность не является возрастающей') ;

End.

Это реализовано с помощью цикла repeat:

Program p3;

Var a1, a2, k, i:integer;

Begin

Write ('Введите число: ') ;

Readln (a1) ;

repeat

Begin

i:=i+1;

Write ('Введите число: ') ;

Readln (a2) ;

if a2>a1 then

k:=k+1;

a1:=a2;

End;

until i=2;

if k=2 then

Writeln ('Эта последовательность является возрастающей') else

Writeln ('Эта последовательность не является возрастающей') ;

End.