Определить, пригнадлежит ли число интервалу [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.
Помогите привести её в божеский вид

Массив не нужен. Переменной типа int нельзя присваивать массив.

Program lapochka;
uses crt;

var 
f: integer;

begin
  clrscr;
  TextColor(Yellow);
  write('Vvedite chislo'); 
  readln(f); 
  if ( in [5..50]) then writeln('TRUE')
  else writeln('FALSE');
  readln; 
end. 

...
write('Vvedite chislo'); readln(f);
writeln(f in [5 .. 50]);
...

Если смущает конструкция In можешь просто использовать оператор If :

If (n >= LowLimit) and (n <= HighLimit) then writeln ('Yes') else writeln ('No');

, где LowLimit - нижний рубеж интервала, а HighLimit - верхний, n - введёное число.

Sozialist ваша конструция с

if ( in [5..50]) then writeln('TRUE')

не запустилась, но всё остальное правильно
Tan с вашей запустилась
Всем бафое пасибо

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

Tan, я не исправлял ничью программу: обрати внимание, у меня вообще нет If-а... Лишний он тут...

Ой if осталось с предыдущего сообщения, я исправил пост.

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