Задача - Вычислить p=min(x,у,z)

[джегит]

Вычислить p=min(x,у,z)

[Arigato]

if x < y then p := x else p := y;
if z < p then p := z;

[Mad_Cat]

function min(____,_____:real):real;
begin
if ____<_____ then min:=____
else min:=_____;
end;
var x,y,z:real;
begin
readln(x,y,z);
writeln(min(min(x,y),z));
end.

[Poma][a]

Кто меньше?

uses Math;

var
   x, y, z : Integer;

begin
   ReadLn (x, y, z);
   Write(Min(Min(x, y), z)
end.

[Arigato]

В Паскале нет Math.

[Poma][a]

тыц

[Вадим Мошев]

И ещё вариант:

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