Помогите решить задачу

[Rogren]

Здравствуйте, язык Pascal.
Помогите решить:
Даны три действительных числа x, y, z. Составить программу, вычисляющую min(x+y, y+z, x+z)

[tig81]

что делали? Что не получается?

[Rogren]

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  math;

function min(x,y,z:real):real;
begin
If ((x+y)<(y+z)) and ((x+y)<(x+z)) then
min:=(x+y)
else
If ((y+z)<(x+y)) and ((y+z)<(x+z)) then
min:=(y+z)
else
If ((x+z)<(y+z)) and ((x+z)<(x+y)) then
min:=(x+z);
End;
var
X,Y,Z:real;
begin
WRITE('Vvedite X=');
Readln(X);
WRITE('Vvedite Y=');
Readln(Y);
WRITE('Vvedite Z=');
Readln(Z);
writeln('min=',(Min(x+y,y+z,x+z)));
Readln;
End.
Я не понимаю как сделать чтобы он считал нормально? ввожу числа,а программа считает как будто совсем другие.

[sp]

Вы два раза сумму вычисляете. Один раз в пп, второй раз при подстановке параметров.
У Вас вводятся переменные большими буквами, а подставляете маленькими. Большинство компиляторов различают регистр.
То же в имени пп.

[VictoriaK]

создать абстрактный класс-matrix.Разработать в классе функции сортировки змейкой: горизонтально, вертикально, диагонально, спиралью
Программа на яз. С++

[Selyd]

Достаточно
If (x+y)<(y+z) then
min:=(x+y)
else
min:=(y+z);
If min>(x+z)) then
min:=(x+z);