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