var
    f1, f2: text;
    max, x: real;
begin
    assign(f1, 'sothuc.txt'); reset(f1);
    assign(f2, 'ketqua.txt'); rewrite(f2);

    if not eof(f1) then
    begin
        read(f1, x);
        max := x;

        while not eof(f1) do
        begin
            read(f1, x);
            if x > max then max := x;
        end;

        write(f2, 'Ket qua la: ', max);
    end
    else
        write(f2, 'Khong co so nao duoc nhap');
end.