Заданы числаx, y, z. если x< 0, то p задать как максимальное из x и y; если x> 0или=0, то p задать как минимальное из y, z.

var

  x, y, z, p : real;

function max (a, b : real) : real;

begin

 if a > b then max := a else max := b;

end;

function min (a, b : real) : real;

begin

  if a < b then min := a else min := b;

end;

begin

  read (x, y, z);

  if z < 0 then p := max (x, y) else p := min (x, y);

  write (p);

END

сами такое же писали на неделе))училка разбирала)

#include<conio.h>

#include<stdio.h>

#include<iostream.h>

float Max(float a,float b)

 {

      if (a > b) then return a

         else return b;

}

float Min(float a,float b)

 {

      if (a < b) then return a

         else return b;

} 

int main()

{

     float x,y,z,p;

      clrscr;

      cout<<"Введите 3 числа: ";

      cin>>x;

      cin>>y;

      cin>>z;

      if (z < 0)  p = Max (x, y) 

              else p =Min (x, y);  

       cout<<" \nP равно:"<<p<<"\n"; 

       getch();  

       return 0; 

}