[Hannibal]

Сообщение от Uniq!

3,если b<a<c
4,если b<a<c

фигня написана

Код:

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;

С case сам, на примере if

мне кучу ошибок выбило undeclered identifier 'edit1' и т.д.