Program Area_Rettangolo;
Uses wincrt;
Var A,B,C:integer;
Begin
Write ('la base è=');
Read (A);
Write ('la altezza è=');
Read (B);
C:=A*B;
Write ('la area è=');
Write (C);
end.

INDIETRO / BACK