Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ghg
Language: PASCAL
Code:
Program tong_hai_so;
Uses crt;
var a,b,tong :Integer;
Begin
Clrscr;
Write (‘Hay nhap so thu nhat: ’);
Readln (a);
Write (‘Hay nhap so thu hai: ’);
Readln (b);
Write (‘Tong ban tinh duoc la: ’);
Readln (tong);
If tong=a+b then writeln (‘Chuc mung! Ban da tinh dung!’)
          else writeln (‘Rat tiec! Ban da tinh sai!’, Tong =a+b);
Readln;
End.     
Comments: