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