[kilds]

даны 3 действительных чила (x,y,z) . Найти MIn(x,y,z) Max(x,y,z)
вот мой варинт . Нужно написать в консоли

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
x,y,z,max:real;
funcion max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
funcion min (a,b:real):real;
begin
if a<b then min:a else min:=b;
end;
begin
readln (x,y,z);
writeln ('max=',max(max(x,y),max(y,z)));
writeln ('min=',(min(x,y),min(y,z)));
End.

Админ: Пользуемся тегами для оформления кода!

кто знает как написать более коротко помогите )