program test;var a, b: integer;begin write('Enter A: '); readln(a); write('Enter B: '); readln(b); writeln('Area = ', a*b); readln;end.
