uses crt;

var a,b:longint;

Begin

clrscr;

Writeln('Nhap a,b=');

Readln(a,b);

writeln('tich hai so la : a*b=',a*b);

writeln('thuong hai so la :a/b=',a/b);

Readln;

End.

nếu đúng vote 5* và chọn là câu trả lời chính xác nhất cho mình nha, cảm ơn.

Mình không tìm thấy ví dụ nào ở trang 23 SGK lớp 8 cả. Nên mình làm 2 cách, bạn xem cách nào giống thì lấy nha.

Cách 1: Có gán biến:

uses crt;
var a,b,tich:integer; thuong:real;
begin
clrscr;
   write('Nhap so nguyen a: ');readln(a);
   write('Nhap so nguyen b: ');readln(b);
   tich:=a*b;
   thuong:=a/b;
   writeln('a*b=',tich);
   writeln('a/b=',thuong);
readln
end.

Cách 2: Không gán biến:

uses crt;
var a,b:integer; 
begin
clrscr;
   write('Nhap so nguyen a: ');readln(a);
   write('Nhap so nguyen b: ');readln(b);
   writeln('a*b=',a*b);
   writeln('a/b=',a/b);
readln
end.