Writeln('max',a:6:3,' и ',b:6:3,' - ',x:6:3)

End.

Program BID;{Заголовок}

Var

a,b,R,x:real; {a, b, R, x – вещественные}

Begin

{Вывод на экран подсказки}

Write('Введите два числа: ');

{Ввод чисел a и b}

Readln(a,b);

{Нахождение разности чисел a и b}

R:=a-b;

{Выбор большего из чисел a и b}

If R<0 then x:=b else x:=a;

{Блок печати}

Writeln('max',a:6:3,' и ',b:6:3,' - ',x:6:3)

End.

'Большее из трёх чисел '

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

RichEdit1: TRichEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a,b, c, f:real;

begin

RichEdit1.Text:='';

a:= StrToFloat(InputBox('ввод', 'введите a',''));

b:= StrToFloat(InputBox('ввод', 'введите b',''));

c:= StrToFloat(InputBox('ввод', 'введите c',''));

ShowMessage('Вы ввели числа ' +floatToStr(a)+' '+floatToStr(b)+ ' '+ floatToStr(c)+ chr(13));

If a>b

then

f:=a

else

f:=b;

if c> f

then

f:=c;

ShowMessage('Большее из чисел ' + floatToStr(a) + ' и ' + floatToStr(b)+ 'и ' + floatToStr(C)+ ' число '+ floatToStr(f));

RichEdit1.Text:=RichEdit1.Text+ ''Большее из чисел ' ' + floatToStr(a);

RichEdit1.Text:=RichEdit1.Text+ ' и ' + floatToStr(b)+ ' и ' + floatToStr(c)+' число '+ floatToStr(f);

end;

end.