Một số bài tập pascal

Phần I : Viết các chương trình in ra dòng chữ , hình .
Code:
Bài 1 : Viết chương trình in ra dòng chữ "Chào các bạn" .

program Vd;
uses wincrt;
begin
write(`Chào các bạn");
end.(``Ctrl + F9`` để chạy bạn nhé)
Code:
Bài 2 : Viết chương trình in ra hình chữ nhật * * * * * * *
* *
* * * * * * *

program vd;
uses wincrt;
begin
writeln(`* * * * * * *`);
writeln(`* *`);
writeln(`* *`);
writeln(`* * * * * * *`);
end.(``Ctrl + F9`` để chạy bạn nhé)
Bài 3 : Viết chương trình in ra hình trái tim : ...
Code:
program vd;
uses wincrt;
begin
writeln(` ** ** `);
writeln(` * * * *`);
writeln(` * *`);
writeln(` * *`);
writeln(` * *`);
writeln(` * *`);
writeln(` *`);
end.(``Ctrl + F9`` để chạy bạn nhé)
Phần II : Các bài tập lập trình tính đại số và tính chu vi , diện tích hình . Bài 4 : Viết chương trình tính dãy số thập phân 1+1/2+1/3+1/4...+1/9
Code:
program vd;
uses wincrt;
begin
writeln(`1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9=`,1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9);
end.(``Ctrl + F9`` để chạy bạn nhé)
Bài 5 : Viết chương trình tính (10+2)^2/3+1
Code:
program vd;
uses wincrt;
begin
writeln(`(10+2)^2/3+1=`,(10+2)*(10+2)/3+1);
end.(``Ctrl + F9`` để chạy bạn nhé)
Bài 6 : Viết chương trình tính (8^3-5^3):2^3+1
Code:
program vd;
uses wincrt;
begin
writeln(`(8^3-5^3):2^3+1=`,(8*8*8-5*5*5)/(2*2*2)+1);
end.(``Ctrl + F9`` để chạy bạn nhé)
Bài 7 : Viết chương trình tính chu vi hình tròn có bán kính = 5
Code:
program vd;
uses wincrt;
var cv:real;
Const bk=5;
pi=3,14;
begin
cv:=bk*2*3,14;
writeln(`Chu vi hình tròn có bán kính = 5 là`,cv:5:2);
end.(``Ctrl + F9`` để chạy bạn nhé)
Bài 8 : Viết chương trình tính diện tích hình tròn có bán kính = 10 
Code:
program vd;
uses wincrt;
var dt:real;
const bk=10;
pi=3,14;
begin
dt:=bk*bk*3,14;
writeln(`Dien tich hinh tròn có bán kính = 10 là`,dt:5:2);
end.(``Ctrl + F9`` để chạy bạn nhé)
Bài 9 : Viết chương trình tích chu vi hình chữ nhật có cd = 5 , cr = 3 
Code:
program vd;
uses wincrt;
var cv:real;
const cd=5;
cr=3;
begin
cv:=(cd+cr)*2;
writeln(`Chu vi hình chữ nhật có cd = 5 , cr = 3 là`,dt:5:2);
end.(``Ctrl + F9`` để chạy bạn nhé)
Bài 10 :Viết chượng trình tính diện tích hình chữ nhật có cd = 10 , cr = 5 
Code:
program vd;
uses wincrt;
var dt:real;
const cd=10;
cr=5;
begin
dt:=cd*cr;
writeln(`Diện tích hình chữ nhật có cd = 10 , cr = 5 là`,dt:5:2);
end.(``Ctrl + F9`` để chạy bạn nhé)
Phần III : Viết chương trình tính , số phải nhập từ bàn phím . Viết chương trình khai báo . Bài 11 :Nhập cd , cr để tính diện tích hình chữ nhật 
Code:
program vd;
uses wincrt;
var cd