uses crt;

begin

clrscr;

writeln('DON XIN PHEP NGHI HOC');

writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');

writeln('Toi ten la:');

writeln('Phu huynh cua em:');

writeln('Hoc sinh lop:');

writeln('Li do nghi hoc:');

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 a,b:real;

begin

clrscr;

readln(a,b);

writeln(a+b:4:1);

readln;

end.

program b1;

uses crt;

var a,b,s:real;

begin

clrscr;

writeln('Nhap hai so a va b: ');

readln(a,b);

s:=a+b;

write('Tong cua hai so a va b la: ',s:1:1);

readln;

end.

P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i;

int main()

{

getline(cin,st);

d=st.length()

for (i=0; i<=d-1; i++)

if (('a'<=st[i]) and (st[i]<='z')) st[i]=st[i]+32;

for (i=0; i<=d-1; i++)

cout<<st[i];

return 0;

}

Câu 1:

ho_ten = input("Nhập họ tên: ")

tach_ho_ten = ho_ten.split()

if len(tach_ho_ten) > 1:

     ten = tach_ho_ten[-1]

     print("Tên của bạn là:", ten)

else:

     print("Nhập sai định dạng họ tên")

Câu 2: 

s = input("Nhập xâu: ")

hoa = s.upper()

print(hoa)

uses crt;

begin

writeln('Xin chao cac ban');

writeln('Moi ban den voi Pascal');

readln;

end.

uses crt;

var ten:array[1..50]of string;

diem:array[1..50]of integer;

i,n,max:integer;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do 

  begin

       write('Ten cua hoc sinh thu ',i,' la: '); readln(ten[i]);

write('Diem cua hoc sinh thu ',i,' la: '); readln(diem[i]);

end;

max:=0;

for i:=1 to n do 

  if max<diem[i] then max:=diem[i];

writeln('Diem cao nhat la: ',max);

for i:=1 to n do 

  if diem[i]=max then writeln(ten[i]);

readln;

end.

Cho em lời giải với ạ em đang thi ạ