câu 1:
uses crt;
var a,b,s: integer;
f1,f2:text;
begin
assign(f1,'songuyen.inp');
reset(f1);
read(f1,a,b);
s:=a+b;
assign(f2,'tong.out');
rewrite(f2);
write(f2,s);
close(f1);
close(f2);
readln;
end.
câu 2:
uses crt;
var a,b,s: real;
procedure nhaptinh;
var a,b,s: real;
begin
write ('nhap chieu dai: '); readln (a);
write ('nhap chieu rong: '): readln (b);
s:=(a+b)*2;
end;
begin
clrscr;
nhaptinh;
writeln ('chu vi hinh binh hanh la: ',s:1:2);
readln;
end.
