Нужно расписать как в паскале: составить программу вывода на экран квадратов чисел от 1 до 10 с использованием оператора "while". (100 должна быть последняя цифра)

Program asd; uses crt; var i,n,s: integer; begin n: =2; while s< 100    do      begin     n: =n*2;         s: =n;         writeln(s);   end; end.

Program chisla; var a: array [1..10] of integer;       o,p,i: integer; begin       for i: =1 to 10 do readln(a[i]);       for i: =1 to 10 do begin             if a[i]< 0 then o: =o+a[i];             if a[i]> 0 then p: =p+1;             end;       write('сумма отрицательных = ',o,'.'); writeln('');       write('количество положительных = ',p,'.'); end.     

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var (n,m): = readinteger2('n, m -> '); var a: = matrrandom(m,n); writeln('исходная матрица: '); a.println; dec(n); dec(m); for var i: = 0 to m do begin   swap(a[i, a.row(i).indexmin],a[i, n]);   swap(a[i, a.row(i).indexmax],a[i, 0]); end; writeln('конечная матрица: '); a.print end. пример: n, m ->   5 6 исходная матрица:   99    9  30  83  11   89  13  70  50  54   43  59  22  13  89   67  27  48  72  41   63  62    5  58  71   45  35  60    3  95 конечная матрица:   99  11  30  83    9   89  54  70  50  13   89  59  22  43  13   72  41  48  67  27   71  62  63  58    5   95  35  60  45    3