Даны действительные числа a, b, c. Проверить выполняются ли неравенства a < b < c. Delphi

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

знаю, что арабские цифры придумали в древней индии, про древнеиндийские книги знаю только то, что их писали на языке санскрите, и если не ошибаюсь, то записи в древней индии делали на глине

если делать, как самоделкин, стыковать кубики столбиком,

то получится так:

var

n: integer;

begin

readln(n);

writeln(4*(2*n+1),' спичек понадобится');

end.

а если находить именно наименьшее число спичек, то надо рассматривать случаи, когда кубики складываются в квадраты и кубы соответственно, но это слишком сложно.

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.