Нужно за 2 часа успеть

Паскаль

Откомпилирован: (Pascal ABC)

program z1;
uses crt;
var
   n: integer;
   i: integer;
begin
    write(' Введите n :  ');
    readln(n);
   
    for i := 1 to n do
    begin
         writeln(' Число:',i,' Степень:', i *i);
    end;
end.

Си

Откомпилирован: (DEV Cpp)

#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <math.h>

int main()
{
 int n = 0;
 
 printf("\n Vvedite n:  ");
 scanf("%d", &n);

 printf("\n Chislo | Stepen");
 for(int i = 1; i < n; i++)
 {
         printf("\n %5d  |%5d ", i, i * i);
 }

 getch( );

 return 0;
}

PROGRAM ThreeSequences(INPUT, OUTPUT);
VAR
 Number: ARRAY[1 .. 3, 1 .. 10] OF INTEGER;
 ArithmeticAverage: ARRAY[1 .. 3] OF INTEGER;
 I, J: INTEGER;  
BEGIN {ThreeSequences}
 Randomize;
 {Генерирует 3 последовательности по 10 случайных чисел}
 FOR I := 1 TO 3
 DO
   FOR J := 1 TO 10
   DO
     Number[I][J] := Random(10) + 1;
 {Выводит последовательности и считает среднее арифметическое}
 FOR I := 1 TO 3
 DO
   BEGIN
     WRITE('Sequences: ');
     ArithmeticAverage[I] := 0;
     FOR J := 1 TO 10
     DO
       BEGIN
         WRITE(Number[I][J]:3);
         {Складывает все числа последовательности}
         ArithmeticAverage[I] := ArithmeticAverage[I] + Number[I][J];
       END;
     WRITELN;
     {Делит на количество чисел последовательности}
     ArithmeticAverage[I] := ArithmeticAverage[I] DIV J;
     WRITELN('ArithmeticAverage: ', ArithmeticAverage[I]);
   END;
END. {ThreeSequences}