Xin hỏi đề cho a và b là số nguyên hay số thực

Program Tinh_Toan;

uses crt;

var a,b: real

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b='); readln(b);

writeln('tong cua 2 so ',a,' va ',b,' =' ,a+b);

writeln('hieu cua 2 so ',a,' va ',b,' =',a-b);

writeln('tich cua 2 so ',a,' va ',b,' =' ,a*b);

readln;

end.

bai1;

program bai1;

uses crt;

var a: integer;

begin

clrscr;

write('nhap a=');

readln(a);

writeln('binh phuong cua so ',a,' =' a*a);

readln;

end.

Xong rồi

bài 2 ;

program bai2;

uses crt;

var a: real;

b: integer;

begin

clrscr;

write('nhap a =');

readln(a);

write('nhap b =');

readln(b);

writeln('tich cua 2 so ',a,' va ',b,' = ' ,a*b);

readln;

end.

sau ' real thêm ' ; ' vào nha

Program So_Sanh;

uses crt;

var a,b :real

begin

clrscr;

write('nhap a =');

readln(a);

write('nhap b=');

readln(b);

if a>b then writeln( a , ' > ' , b)

else

writeln( b , ' > ' , a);

readln

end.

Trong thành phần huyết tương nước chiếm 90 - 92%, chất khô 8 - 10%. Trong chất khô của huyết tương gồm có prôtêin, lipid, glucid, muối khoáng, các hợp chất hữu cơ có chứa N không phải prôtêin (đạm cặn), các enzym, hormon, vitamin.

program bai1;

uses crt;

var x,y : real

begin

clrscr;

write('nhap so x=');

readln(x);

write('nhap so y=');

readln(y);

writeln('Tich cua 2 so thuc ',x,' va ',y,' =' ,x*y);

readln;

end.

Program Ting_tong;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap so a ='); realdn(a);

write('nhap so b ='); realdn(b);

writeln('Tong cua 2 so nguyen ',a,' va ',b,' =' ' ,a+b);

readln

end.

Cái này mới đúng :)

Program Trung_Binh_Cong;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); realdn(b);

writeln('Trung binh cong cua 2 so ',a,' va ',b,' = ' , a+b/2);

readln;

end.

Làm bài vui vẻ :)