Турбо паскаль 7,0 запускается через dosemu 1.4.0...
требуется написать программу для считывания н строк. В первой строке число н, в следующих н строках всякая информация..выглядит так:
5
a
b
c
d
eregds
вот код программы, которая через винду на том же паскале работает, а в dosemu все строки считываются в n1:
var n, i, e:integer; n1:string;
s:array [1..100] of string;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
read(n1); val(n1,n,e);
for i:= 1 to n do
readln(s[i]);
writeln(n);
end.