uses crt;
var ten:string;
begin
clrscr;
write('ban ten gi:'); readln(ten);
writeln('xin chao ban ',ten,' den voi Pascal');
readln;
end.
giúp em với ạ
\
uses crt;
var ten: string;
begin
clrscr;
write('Ban ten gi '); readln(ten);
write('Xin chao ban ',ten,' den voi pascal');
readln
end.