program dz;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('moi nhap a=');
readln(a);
write('moi nhap b=');
readln(b);
write('moi nhap c=');
readln(c);
writeln('tong ba so bang',a+b+c):
write('tich ba so bang',a*b*c);
readln;
end.
chúc bạn học tốt
Program tong;
Uses crt;
Var: a, b, c: integer;
Begin
Clrscr;
Readln(a,b,c);
Writeln(' Tong cua 3 so a, b, c la ', a+b+c);
Writeln(' Tich cua 3 so a,b,c la ', a*b*c);
Readln;
End.
P/c: Mình làm hơi vắn tắt, mong bạn thông cảm. Chúc bạn học tốt!!!