Принадлежит ли число интервалу Опции

[Lapochka]

Определить, пригнадлежит ли число интервалу [5...50]
Program lapochka;
uses crt;
var a:array[5..50] of integer;
f: integer;
begin
clrscr;
TextColor(Yellow);
write('Vvedite chislo'); readln(f);
f:=a;
writeln('TRUE')
else writeln('FALSE');
readln;
end.
Помогите привести её в божеский вид

[Sozialist]

Lapochka
Ага, опечатался) все это очевидно

Сообщение отредактировано: Sozialist - 19.10.2007 16:27