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

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

float trianglep(float a, float h){
   return 2*sqrt(pow(a/2,2)+pow(h,2))+a;
}
 
int main(void)
{
    int i;
    for(i=1; i<=3; ++i){
        float a,h;
        printf("a:");
        scanf("%f", &a);
        printf("h:");
        scanf("%f", &h);
        printf("P:%f\n",trianglep(a,h));
    }
    return 0;
}

import random
import math

def TriangleP(a,h):
    b = math.sqrt((a/2)**2 + h**2)
    return (b,a + 2*b)

for i in range(0,3):
    print(i)
    L = sorted(random.sample(range(1, 20), 2), reverse=True)
    #L[0] = 16
    #L[1] = 6
    #print(L)
    print("a = {0}; h = {1}".format(L[0], L[1]))
    Y = TriangleP(L[0], L[1])
    print("b = {0}; P = {1}".format(Y[0], Y[1]))
									

program Proc20;
Function TriangleP(a,h:Real):Real;
begin
TriangleP:=2*sqrt(sqr(a/2)+sqr(h))+a
end;
 
 
var
  a,h:Real;
  i:integer;
 
begin
 for i:=1 to 3 do
  begin
   Write('a :');
   Readln(a);
   Write('h :');
   Readln(h);
   Writeln(TriangleP(a,h));
  end;
end.