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

Если не трудно, отметьте мой ответ как лучший. Заранее спасибо!

Это реализовано с помощью цикла for:Program p1;Var a1,a2,k,i:integer;BeginWrite('Введите число: ');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;BeginWrite('Введите число: ');Readln(a1);While i<>2 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;BeginWrite('Введите число: ');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.