Sửa chương trình:
program xyz; (*ko nói nhé*)
uses crt;
var Number: integer; q,w,e,r,t,y,u,i,o,p,a,s:string; d,f,g,h,j,k,l,z,x,c,v,b:string;
begin
writeln ('Vui long nhap cau hoi theo thu tu-khong nhap dap an') // thiếu ;
readln(q);
readln(w);
readln(e);
readln(r);
readln(t);
readln(y);
readln(u);
readln(i);
readln(o);
readln(p);
readln(a);
readln(s);
writeln ('Vui long nhap dap an') // thiếu ;
readln(d);
readln(f);
readln(g);
readln(h);
readln(j);
readln(k);
readln(l);
readln(z);
readln(x);
readln(c);
readln(v);
readln(b);
clrscr // chỗ này có ; hay không cũng được (đứng trước end), nhưng mình khuyên nên có vì bạn nói sẽ làm thêm.
(*còn nữa đang làm*)
end.
Chương trình hoàn chỉnh:
program xyz; (*ko nói nhé*)
uses crt;
var Number: integer; q,w,e,r,t,y,u,i,o,p,a,s:string; d,f,g,h,j,k,l,z,x,c,v,b:string;
begin
writeln ('Vui long nhap cau hoi theo thu tu-khong nhap dap an');
readln(q);
readln(w);
readln(e);
readln(r);
readln(t);
readln(y);
readln(u);
readln(i);
readln(o);
readln(p);
readln(a);
readln(s);
writeln ('Vui long nhap dap an');
readln(d);
readln(f);
readln(g);
readln(h);
readln(j);
readln(k);
readln(l);
readln(z);
readln(x);
readln(c);
readln(v);
readln(b);
clrscr;
(*còn nữa đang làm*)
end.