составить программу вычисления выражения

[Al'f!ra]

составить программу вычисления выражения
min(x^2+y^2, y^2+z^2)-4
если x , y , z вводятся с клавиатуры.
помогите пожааалуйста.........

[Serge_Bliznykov]

begin
  Readln(x,y,z);
  m1 := sqr(x)+sqr(y);
  m2 := sqr(y)+sqr(z);
  if  m1<m2 then Rez := m1 -4
  else Rez := m2 -4;
  WriteLn(' результат = ', Rez);
end.

типы переменных определите самостоятельно на свой вкус!

[Al'f!ra]

спасибо большое! вы меня спасли!