Найти периметр треугольника и площадь треугольника - Free Pascal

Формулировка задачи:

В текстовом файле содержатся длины сторон 15 равносторонних треугольников. Выбрать треугольники со стороной, большей 1 и меньшей 3, и записать в файл таблицу, содержащую следующую информацию: длина стороны равностороннего треугольника, периметр треугольника, площадь треугольника. Позаботьтесь о соответствующих заголовках для колонок. Файл с исходными данными сформируйте при помощи текстового редактора.

Решение задачи: «Найти периметр треугольника и площадь треугольника»

textual
                            Листинг программы 
                        
 
                        
                          
                    
const W=15; D=4;
var a: Real;
begin
  Assign(input,'in.txt'); Assign(output,'out.txt');
  Reset(input); Rewrite(output);
  WriteLn('a':W,'P':W,'S':W);
  while not SeekEOF do begin
    Read(a);
    if (1<a) and (a<3) then WriteLn(a:W:D,a*3:W:D,sqrt(3)*sqr(a)/4:W:D);
  end;
end.