program area_de_cuadrado;
uses wincrt;
var
arectangulo,base,altura:integer;
begin
writeln('ingrese base');
readln(base);
writeln('ingrese altura');
readln(altura);
arectangulo:=base*altura;
writeln('el resultado es',arectangulo);
end.