Please help me write a program for turbo pascal using an array. There is a one-dimensional array of whole random numbers consisting of
N=20 elements. The program should answer the question: “Is it true that the first number is less than the others?
Program L15; var a,b,c,d:integer; begin writeln('Введите 4 числа'); readln(a,b,c,d); if ( (a<b) and (a<c) and (a<d) ) then writeln('Да') else writeln('Нет'); end.
the rest through for, while, repeat.