Паскаль

Откомпилирован: (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()

 int n = 0;
 
 printf("\n Vvedite n:  ");br /> scanf(""%d"", &n