Bài 1:

(dòng 4) Dư cặp dấu nháy đơn

`=>`Sửa lại: Write('nhap chieu dai a='); readln(a);

(dòng 5) Dư cặp dấu nháy đơn

`=>`Sửa lại: Write('nhap chieu rong b='); readln(b);

(dòng 6) Thiếu dấu ";"

`=>`Sửa lại: S:=a*b;

(dòng 7) Sai phép nhân

`=>`Sửa lại: C:=(a+b)*2;

(dòng 8) Dư cặp dấu nháy đơn

`=>`Sửa lại: Write('dien tich hinh chu nhat la:',S);

(dòng 9) Dư cặp dấu nháy đơn

`=>`Sửa lại: Write('chu vi hinh chu nhat la:',C);

(dòng 11) Thiếu dấu chấm

`=>`Sửa lại: End.

Bài 3: 

a.  (7-x)*(7-x) mod 5

b. 3/5*y-1/20*x-12

Cái bài mà bạn ghi:

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

Write('Tich cua a va b:',a*b); 

Readln

End.

xác định input, output;

input: a,b;

output: tích của hai số a,b;

thuật toán:

B1: nhập a,b;

B2: s<--a*b;

B3: xuất s;

viết chương trình:

program bai_giai;

uses crt;

var a,b,s:longint;

begin

clrscr;

write('nhap a,b:');readln(a,b);

s:=a*b;

write('tich cua hai so la:',s);

readln;

end.