Mn giải giúp mình với

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.

Ai biết đâu

Hihi

Tự làm

Program tinhtich;

uses crt;

Var a,b,s:integer;

Begin

Clrscr;

Write('nhap so a='); readln(a);<br />write('nhap so b='); readln(b);<br />s:=a*b;<br />write('tich tinh duoc la:s');

Readln;

End.

Ai mà biết