Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (26.11 KB, 2 trang )
program vidu;
var i: integer;
procedure ctc;
//var i:integer;
begin
i:=100;
end;
begin
i:=1;
ctc;
writeln(i);
readln
end.
program baitap;
uses crt;
var a, b:integer;
procedure tong(x,y:integer);
var s:integer;
begin
s:=x+y;
writeln('tong s=',s);
end;
begin
clrscr;
writeln('nhap 2 so nguyen x,y '); readln(a,b);
tong(a,b);
readln
end.
Tìm lỗi của chương trình trên