Помогите пожалуйста с задачей по Delphi - Из трех чисел P,S,R найти наибольшее и наименьшее и вывести его

Question

Нужна именно сама программа, ее написание.

Нужна именно сама программа, ее написание в Delphi

varP,S,R : real;cc: string;beginP := strtofloat(Edit1.Text);S := strtofloat(Edit2.Text);R := strtofloat(Edit3.Text);if (P=S) or (P=R) or (P=S) and (S=R)ThenEdit4.Text:= ' нет решений 'ElseIf (P>S) and (S>R)ThenEdit4.Text:='max:=P, min:=R'ElseIf (PR) and (R>P)ThenEdit4.Text:= ' max:=S, min:=P 'ElseIf (PR) and (R>P)ThenEdit4.Text:= ' max:=S, min:=P 'ElseIf (PR) and (R

Юлия Усачева · Accepted Answer

program q171257670;

{$APPTYPE CONSOLE}

function Max(a, b: integer): integer;
begin
 if a > b then
 Result := a
 else
 Result := b;
end;

function Min(a, b: integer): integer;
begin
 if a < b then
 Result := a
 else
 Result := b;
end;

var
 a, b, c: integer;
begin
 WriteLn('a, b, c');
 ReadLn(a, b, c);
 WriteLn('Max: ', Max(Max(a, b), c));
 WriteLn('Min: ', Min(Min(a, b), c));
 ReadLn;
end.

Ангелина Садова · Answer

>Нужна именно сама программа, ее написание.
А наглую школоту мы будем учить:

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
 System.SysUtils, System.Generics.Collections;
var
 p,s,r:integer;
begin
 try
 readln(p,s,r);
 with TList<integer>.Create do
 try
 Add(p);
 Add(s);
 Add(r);
 Sort;
 Writeln(Items[0],' ',Items[2]);
 finally
 Free;
 end;
 readln;
 except
 on E: Exception do
 Writeln(E.ClassName, ': ', E.Message);
 end;
end.

Теперь разберись как это работает, а главное - попробуй преподу объяснить.