1. Viết khai báo cho các biến sau: biến A kiểu số nguyên, biến B kiểu số thực, biến C kiểu kí tự, biến R kiểu xâu kí tự.

var A:longint;B:real;C:char;R:string;

2. viết chương trình nhập vào 2 số A,B. Tính và in ra tích 2 số A,B

uses crt;

var A,B,T:longint;

begin

 clrscr;

   write('A=');readln(A);

   write('B=');readln(B);

   T:=a*b;

   write('tich cua hai so A va b la:',T);

 readln;

end.

1.

var A:integer; B:real; C:char;  R:string;

2. 

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