viết Chương trình để mấy tính thực hiện các phép tính sau : a) 1/2 + 3 mũ2 câu b) m mũ 2 Trừ n mũ2 giúp mình với !!!!!

Program Tinh_A_b;

Uses crt;

Var a: real;

b, m, n: integer;

Begin

a:= 1/2+3*3;

Writeln(‘a) ‘,a);

b:= m*m-n*n;

Writeln(‘b) ‘,b);

Readln

End.

Minh chỉ biết thế này thôi nếu ko đúng thì cho mình xin lỗi !