Viết chương trình đọc 3 số a,b,c từ tệp baso.Inp Tính và in ra màn hình tổng và tích 3 số đó. Kiểm tra tổng 3 số có lớn hơn 0 và thông báo kết quả ra

uses crt;
var a,b,c,s: byte;
f:text;
begin
assign(f1,’baso.inp’);reset(f1);
read(f1,a,b,c);
s:=a+b+c;
if s>0 then writeln (‘tong 3 so lon hon 0’)

else if s<0 then writeln (‘tong 3 so be hon 0’)
else writeln (‘tong 3 so bang 0’);
readln;
end.