vieết ct nhập 3 cạnh của 1 tam giác tính Cv của tam giác đó và in kết quả ra màn hình (trong pt có sử dụng 2 ct con 1 ct con nhập dữ liệu 1 ct con để tính cv)

uses crt;
var a,b,c:longint;
Procedure nhap;
begin
   write('Nhap canh thu 1: ');readln(a);
   write('Nhap canh thu 2: ');readln(b);
   write('Nhap canh thu 3: ');readln(c);
end;
function cv(a,b,c:longint):longint;
begin
   cv:=a+b+c;
end;
begin
clrscr;
   Nhap;
   writeln('Chu vi: ',cv(a,b,c));
readln
end.

uses crt;

var a,b,c: integer;

procedure nhap;

var a,b,c:integer;

begin

write ('nhap canh thu nhat: ');  readln (A);

write ('nhap canh thu hai: ');  readln (B);

write ('nhap canh thu ba: ');  readln (c);

end;

function cv(a,b,c: integer): longint;

begin

cv:=a+b+c;

end;

begin

clrscr;

nhap;

writeln ('chu vi la: ',cv(a,b,c));

readln;

end.