Вывести на экран квадраты натуральных чисел от 1 до 10

Решение на яп  c #include < stdio.h> int main() { int i; for (i=1; i< =10; i++)  printf("%d\n", i*i); return 0; }

Var age : integer;     {возраст}       sex : char;         {пол}|       stag: integer;     {стаж}       flag: boolean;     {логическое да или нет} begin writeln('age='); readln(age); writeln('sex='); readln (sex); writeln('stag='); readln(stag); flag: =false; if (sex='m')  and (age> =55) and (stag> =15) then flag: =true; if (sex='f') and (age> =50) and (stag> =15) then flag: =true; if (flag=true) then writeln('на пенсии') else writeln('еще работает'); readln; end.

N=100;           {количество элементов массива} type mas =array [1..n] of integer; var a : mas;       max, i: integer; begin for i: =1 to n do     a[i]: =10+random(90);         {заполняем массив двузначными числами }     max: =a[1];     for i: =2 to n do       if a[i]> max then max: =a[i];     writeln('maxel=', max) ;           {напечатан максимальный элемент} readln; end.