Program songuyen;

Uses Crt;

Var a,b: real;

Var pt: char;

BEGIN

CLRSCR;

Writeln (' Nhap a = '); Readln (a);

Writeln (' Nhap b = '); Readln (b);

Writeln (' nhap phep tinh '); Readln (pt);

If pt=' + ' then writeln ('in ra tong' ,a+b);

If pt=' - ' then writeln ('in ra hieu', a - b);

If pt=' * ' then writeln ('in ra tich', a * b);

If pt=' / ' then writeln ('in ra thuong', a / b);

Readln;

End.

(Chúc bạn học tốt, mong đc câu tl hay nhất và 5*)

program hoidap247;

var a,b: integer;

t: longint;

begin

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

t:=a;

t:=t+b;

write('Tong 2 so nguyen a va b la :' ,t);

readln

end.