Sửa lỗi sai và viết lại thành một chương trình hoàn chỉnh
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a='); readln(a)
Write('nhap b='); readln(b);
Tich:a*b
Writeln('tich cua a va b la:, Tich: 8:20);
Readln;
end;
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
program Tich;
uses crt;
var a,b,Tich : integer;
begin
clrscr;
Write('Nhap a ='); readln(a);
Write('Nhap b='); readln(b);
Tich := a*b;
Writeln('Tich cua a va b la: ',Tich:8:20);
Readln;
end.