program Project13;
var
   a, b, S: Integer;
begin
   Writeln('Inter a value of "a" : ');
   Readln(a);
   Writeln('Inter a value of "b" : ');
   Readln(b);
   S := a*b;
   Writeln('The value of square:' ,S);
end.