Viết chương trình pascal nhập 3 số a,b,c

Viết chương trình pascal nhập 3 số a,b,c

Đề bài: Viết chương trình pascal nhập 3 số a,b,c; kiểm tra xem nó có phải đọ dài 3 cạnh 1 tam giác hay không rồi in ra màn hình, nếu là 3 cạnh tam giác thì tính chu vi của tam giác đó

Lời giải

var a,b,c,cv:word;

begin

write('nhap vao so a=');readln(a);

write('nhap vao so b=');readln(b);

write('nhap vao so c=');readln(c);

if (a+b>c) and (b+c>a) and (a+c>b) then writeln('a,b,c tao nen tam giac')

else

writeln('a,b,c khong tao nen tam giac');

cv:=a+b+c;

writeln('chu vi tam giac:',cv);

readln;

end.