составить програму которая выводит на экран квадраты 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

#include

#include

#include

int main ()

Stepen") ;

for (int i = 1; i < n; i++)

%5d ", i, i * i) ;

getch () ;

return 0;