program lab_1;
var
a,b,c,d:integer;
K:real;
f: file of integer;
m: file of real;

begin
assign(f,'C:\in.txt');
assign(m,'C:\out.txt');
reset(f);
read(f,a);
read(f,b);
read(f,c);
read(f,d);
K:=(a*b*c)/d;
rewrite(m);
write(m,K);

read;
end.


в чем проблема ?

m: file of real;

замени на

m: text

потому что сейчас у тебя в файл напрямую пишутся байты, из которых состоит число К (если попытаться открыть в виде символов, то увидишь символы, коды которых соответствуют этим байтам).

TarasBer , спс
помогло