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

[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.
Помогите привести её в божеский вид

[Tan]

Программу Cоциалиста исправил гость, обрати внимание (f in [5..50]) then writeln('TRUE')

Сообщение отредактировано: Tan - 18.10.2007 23:56