a) 

* Xác định bài toán :

Input : độ dài cạnh a, chiều cao tương ứng h

Output : diện tích tam giác

* Thuật toán :

Bước 1 : Nhập a,  h
Bước 2 : S <-- (a * h) /2;
Bước 3 : Xuất S ra mà hình
Bước 4 : Kết thúc
* Viết chương trình
program tam_giac;
uses crt;
var a, h, s : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai chieu cao h :');readln(h);
s := (a * h) /2;
writeln('dien tich cua tam giac la :', s:8:2);
readln
end.

b)

* Xác định bài toán :

Input : số a, b

Output : phép chia phần dư hai số nguyên a và b

* Thuật toán :

Bước 1 : Nhập số nguyên a

Bước 2 : Nhâp số nguyên b

Bước 3 : d <--- a mod b

Bước 4 : Xuất ra d 

Bước 5 : Kết thúc

* Viết chương trình

program tinh;

uses crt;

var a, b, d : integer;

begin

clrscr;

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

write('nhap so nguyen b :');readln(b);

d := a mod b ;

writeln('phep chia phan du cua a va b la :', d);

readln

end.

$#QLinkVNxWCDI$ 
Thuật toán của 2 câu hỏi:
a) INPUT: Hai giá trị của đường cao - "h" và cạnh đáy - "a"
OUTPUT: Diện tích của tam giác cần tính.
B1: Nhập giá trị của đường cao - "h" và cạnh đáy - "a"
B2: Thực hiện phép tính diện tích tam giác đó theo công thức với giá trị của 2 cạnh vừa nhập.
B3: In kết quả ra màn hình.
B4: Kết thúc chương trình.
(Hoặc có thể lồng ghép giữa bước 2 bằng cách gán S là công thức diện tích tam giác cần tìm, không hiểu xem phần chương trình phía dưới)
b) INPUT: Hai giá trị a và b nguyên.
OUTPUT: Kết quả của phép chia lấy phần dư của hai số nguyên a và b
B1: Nhập giá trị của a và b.
B2: Thực hiện phép chia lấy phần dư với hai giá trị trên.
B3: In kết quả ra màn hình.
B4: Kết thúc chương trình:
Chương trình Pascal của 2 đề bài:
a)
program qlinkvn;
uses crt;
var a,h,S: integer;
begin
clrscr;
writeln('Nhap do dai canh day: '); readln(a);
writeln('Nhap do dai duong cao: '); readln(h);
S:=1/2*a*h;
write(Dien tich cua tam giac la: ',S);
readln;
end.
b) 
program wcdi;
var a,b: integer;
begin
clrscr;
writeln('Nhap gia tri a: '); readln(a);
writeln('Nhap gia tri b: '); readln(b);
writeln('Ket qua cua phep chia lay phan du cua a voi b la: ', a mod b);
readln;
end.