составить функцию на Паскале y=2/x

var

v,p,n,h,d: real;

begin

read(p,n,h,d);

v: =3*p*n/10/10/10*h*d*d;

end.

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

a в квадрате плюс b в квадрате:  

;

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4