Помогите пожалуйста сделать программу​

Question

Помогите пожалуйста сделать программу​

---

Answer 1

program raf105;

var f,m,T:real;

begin

write('m= ');

readln(m);

write('T= ');

readln(T);

if m=T

 then f:= m**2

 else f:= m*T;

writeln('f= ',f);

end.

Программа написана на языке PascalABC.NET