Составить программу на паскале найти среднее арифметическое трѐх целых случайных чисел, принадлежащих промежутку [0; 10

На pascal abc uses crt;   var  a, b, c : real; begin   write('введите три числа (через пробел): ');   readln(a, b, c);   if (a> =0) and (a< 10) and (b> =0) and (b< 10) and (c> =0) and (c< 10)   then writeln ((a+b+c)/3)   else writeln ('число не принадлежит промежутку [0; 10)'); end.

На языке c #include < stdio.h> #define min -10 #define max 10 void vychislenie(float shag); int main(){     float shag=0; //shag x-a        printf("programma vyschityvaet znachenija funkcii y=x^2 pri x = -10 do 10\n\n");           printf("vvedite shag funkcii: ");     scanf("%f", & shag);     vychislenie(shag); return 0; } void vychislenie(float shag){       float y=0;         float x=min; //x=-10     do{                  y=x*x;                     if(x> =min& & x< =max){                                  printf("x=%.2f   y=%.2f\n", x, y);                     }                    x=x+shag;             }while(x< max+1); }

1program z1; var a,b,c,d, min1, min2, min: real; begin writeln ('введите 4 числа: '); readln (a,b,c,d); if a< b then min1: =a else min1: =b; if c< d then min2: =c else min2: =d; if min1< min2 then min: =min1 else min: =min2; writeln ('наименьшее число: ',min); end. 2 program z1; var a,b,c,d,g,k: real; begin writeln ('введите стороны треугольника: '); readln(a,b,c); if a< b then begin k: =a; d: =b; end else begin k: =b; d: =a; if d< c then g: =c else g: =d; if g*g=d*d+k*k then writeln ('треугольник прямоугольный') else writeln('треугольник не прямоугольный'); end.