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

#include <stdio.h>

float radtodeg(float r){
    return 180*r/3.14;
}
int main(void)
{
    int i;
    float r;
    for (i=1; i<=5; ++i){
        printf("R:");
        scanf("%f", &r);
        printf("deg: %f\n",radtodeg(r));
    }
    return 0;
}

import random
import math

def RadToDeg(D):
    return D / math.pi * 180.0

for i in range(0,5):
    x = random.uniform(0,math.pi * 2)
    #x = math.pi / 2
    print(x,":",RadToDeg(x))
									

program Proc33;
 
Function  RadToDeg(R:Real):Real;
begin
  RadToDeg:=180*R/3.14;
end;
 
var
  i:Integer;
  R:Real;
 
begin
 for i:=1 to 5 do
  begin
   Write('R :');
   Readln(R);
 
   Writeln(RadToDeg(R));
  end;
end.