var a,b,c: integer;
begin
a:= strtoint (edit1.Text);
b:= strtoint (edit2.Text);
c:= strtoint (edit3.Text);
if (a>b) and (a>c) then memo1.Lines.add(inttostr(a) + ' the biggest');
if (b>c) and (b>a) then memo1.Lines.add(inttostr(b) + ' the biggest');
if (c>a) and (c>b) then memo1.Lines.add(inttostr(c) + ' the biggest');
if (a=b) and (a=c) then memo1.Lines.add(inttostr(a) + ' vsetky su rovnake');
end;

end.