Câu 1:
Program FNG;
Uses crt;
Var a,b,s,t,h: extended;
Begin
Clrscr;
Write('Nhap a, b: '); Readln(a,b);
s:=a*b;
t:=a+b;
h:=abs(a-b);
Writeln('Tong = ',t:0:2);
Writeln('Hieu = ',h:0:2);
Write('Tich = ',s:0:2);
Readln
End.
Câu 2:
Sai thứ tự các câu lệnh và thiếu + sai dấu ; và dấu . kết thúc ctr
Program vd;
Uses crt;
Begin
Clrscr;
Write('chao cac ban!');
Readln
End.