uses crt;

begin

writeln('Xin chao cac ban');

writeln('Moi ban den voi Pascal');

readln;

end.

begin 

write ('TRUONG THCS ...');

write ('CHAO CAC BAN HOC SINH LOP 8');

readln ;

end.

Mình cần viết 2 dòng chữ' chào các bạn' 'mình tên là pascal

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1);

readln(st2);

writeln('Ten minh ',st1);

writeln('Lop ',st2);

readln;

end.

Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với

program chanle;

uses crt;

var a:integer;

begin

write('nhap so a: ');readln(a)

if a mod 2=0 then writeln('a la so chan')

else writeln('a la so le');

realdn;

end.

readln(a);

ghi thiếu cái ;

:))

progam      KT_a_khi_chiacho_2;

uses     crt;

var       a:integer;

begin

Clrscr;

writeln(' Nhap so a ');

readln(a);

Ip (a mod 2 = 0 ) then writeln (a,' Chia het cho 2');

else Ip (a mod 2 <> 0 ) then writeln (a,' ko chia het cho 2');

readln;

end.

Cái này là mk tự vt ko chép mạng nên sai thì Sorry nhang.Trên mạng cx ko có đâu

Bn nên thử ở trên CT pascal trước r ghi vào cho chắc nhé!!!

writeln('chao cac ban');

readln;

#include <bits/stdc++.h>

using namespace std;

int main()

{

cout<<"Chao cac ban"<<endl;

cout<<"Minh ten la:"<<endl;

cout<<"Minh hoc lop:";

return 0;

}

program XinChao;

uses crt;

begin

Clrscr;

writeln ('Chao cac ban!');

writeln('Minh ten la Nguyen Mai Phuong ');

writeln('Minh hoc lop 8A4');

readln;

end.

đáp án nha