составить програму которая выводит на экран квадраты n первых натуральных чисел

Паскаль

Откомпилирован: (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(" Vvedite n:  "); scanf("%d", &n); printf(" Chislo | Stepen"); for(int i = 1; i < n; i++) {         printf(" %5d  |%5d ", i, i * i); } getch( ); return 0;}