HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
Cao nhân nào giúp mình 2 bài này với, mình cần so keys ạ.
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('Nhap a,b');
Realn(a,b);
If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)
else writeln('Yeu cau nhap lai');
Readln;
End.