значит так
Код:
Новый проект:
на форму стягивай edit - поле для ввода текста. (3 штуки)
искать её на панели компонентов Standard
Label - просто штучка, где текст отображается
Button - кнопку, тырыкай дважды на кнопку,
получишь:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
Пихай всё что я накатал:
Вот так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
y:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text;
if (a<b) and (b<c) then then y:=1;
if (a=b) and (b=c) then then y:=2;
if (b<a) and (a<c) then then y:=3;
Label1.Caption1:=IntToStr(y);
end;
Нажимай f9
В первое поле вводи 5 во второе 6 в третее 7
и тыкай на кнопку