1)
uses crt;
begin
clrscr;
writeln(2+5);
readln;
end.
2)
- Nếu không nhập tên ( nhìn nó sao sao ấy :)) )
uses crt;
begin
clrscr;
writeln('Toi ten la:');
writeln('Hoc sinh lop 9 Truong THCS Tan Xuan');
readln;
end.
- Nếu có nhập tên
uses crt;
var s:string;
begin
clrscr;
write('Nhap ten: ');readln(s);
writeln('Toi ten la: ',s);
writeln('Hoc sinh lop 9 Truong THCS Tan Xuan');
readln;
end.