Решение задачи Proc 38

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

float power2(float a, int n){
    float temp=1;
    int i;
    for (i=1; i<=abs(n); ++i) temp*=a;
    return n<0?1/temp:temp;
}
 
int main(void)
{
    float a;
    printf("A:");
    scanf("%f", &a);
    int k,l,m;
    printf("K: ");
    scanf("%i", &k);
    printf("L: ");
    scanf("%i", &l);
    printf("M: ");
    scanf("%i", &m);
 
    printf("power2: %f\n",power2(a,k));
    printf("power2: %f\n",power2(a,l));
    printf("power2: %f\n",power2(a,m));
 
    return 0;
}

import random
import math

def Power2(A,N):
    i = 0
    p = 1
    
    if N < 0:
        N1 = -N
    else:
        N1 = N
        
    while i < N1:
        p *= A
        i += 1
    
    if N < 0:
        p = 1 / p

    return p

a = random.randrange(1,6)
#a = 2
for i in range(-4,5):
    #x = random.randrange(1,16)
    x = i
    print(a,"^",x,"=",Power2(a,x),";",a**x)
									

program Proc38;
 
Function Power2(A:Real;N:Integer):Real;
var
i:integer;
TempRez:Real;
begin
 TempRez:=1;
 
 if N=0 then TempRez:=1
 else
 for i:=1 to abs(N) do TempRez:=TempRez*A;
 if N<0 then TempRez:=1/TempRez;
 Power2:=TempRez;
end;
 
var
  A:real;
  K,L,M:Integer;
 
begin
   Write('A :');
   Readln(A);
   Write('K :');
   Readln(K);
   Write('L :');
   Readln(L);
   Write('M :');
   Readln(M);
   Writeln(Power2(A,K));
   Writeln(Power2(A,L));
   Writeln(Power2(A,M));
end.