Question

Làm hộ mình câu 1 với

Answer 1

uses crt;

const fi='xau.doc'

var st:string;

f1:text;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

readln(st);

d:=length(st);

delete(st,1,3);

writeln(f1,st);

readln;

end.