Найдите ошибку в программе (Turbo Pascal).
 

Program tkan;
Var Square : real ;
Price : real;
X : real ;
begin
Write('Vvedite dlinu otrezka (metrov): ');
readln(X);
Square:= X * 0.8 ;
Price:=Square * 8;
WriteLn('Stoimost kuska tkani ploshadyu ', Square,' kvadratnix metrov sostavlyaet ', Price,' rubley');
readln;
END.