Program reshenie;
Var a,b,c:integer; (ну или Var a,b,c: real если есть десятичные дроби)
Begin
Read(a);
Read(b); (вбиваешь значения первой и второй стороны)
c:=a*b;
WriteLN(c); (выводим ответ)
End.
