Сколько различных прямоугольников может на листочке нарисовать Вася, если рисовать он умеет только по линиям?

var  m, n, k: integer;
begin
  readLn(n,m);
  k:=(n*(n+1) div 2)*(m*(m+1) div 2);
  writeLn(k);
  readLn;
end.

uses SysUtils,Math;
const base:longint=1000000000;
type LNum=array of longint;
     CArr=array of char;
var
  n,m,q,z:LNum;
  a,b:CArr;
  c:char;
  spc:boolean;
procedure LNumPrint(a:LNum);
var
  i:longint;
begin
   if length(a)=0 then write(0) else write(a[length(a)-1]);
   for i:=length(a)-2 downto 0 do
     write(Format('%.9d',[a[i]]));
end;
 
procedure CharArrtoLNum(s:array of char;var a:LNum);
var
  i,j:longint;
begin
  j:=0;
  setlength(a,0);
  i:=length(s);
  while i>0 do begin
    j:=j+1;
    setlength(a,j);
    if i>8 then a[j-1]:=StrToInt(copy(s,i-8,9))
           else a[j-1]:=StrToInt(copy(s,0,i));
    i:=i-9;
  end;
end;
 
procedure LNumAdd(var a:LNum;b:LNum);
var
  i,k,t:longint;
begin
  k:=0;
  for i:=0 to max(length(a),length(b))-1 do begin
    if i=length(a) then setlength(a,i+1);
    if i>=length(b) then t:=0 else t:=b[i];
     a[i]:=a[i]+k+t;
     if a[i]>base then begin k:=1;a[i]:=a[i]-base;end;
  end;
  if k=1 then begin setlength(a,i+1);a[i]:=1;end;
end;
 
Procedure LNumMult(a,b:LNum;var c:LNum);
var
  i,j,k,t:longint;
  z:uint64;
begin
  k:=0;
  setlength(c,length(a)+length(b));
  for i:=0 to length(c)-1 do c[i]:=0;
  for i:=0 to length(a)-1 do begin
    j:=0;
    while (j<length(b)) or (k<>0) do begin
      if j>=length(b) then t:=0 else t:=b[j];
      z:=uint64(c[i+j]+int64(a[i])*int64(t)+k);
      c[i+j]:=z mod base;
      k:=z div base;
      j:=j+1;
    end;
  end;
  while (length(c)>0) and (c[length(c)-1]=0) do setlength(c,length(c)-1);
end;
 
Procedure LNumDivNumber(var a:LNum;b:longint);
var
  i,j:integer;
  z:uint64;
begin
  if b>=base then exit;
  j:=0;
  for i:=length(a)-1 downto 0 do begin
    z:=uint64(int64(a[i])+uint64(int64(j)*int64(base)));
    a[i]:=z div b;
    j:=z mod b;
  end;
  while (length(a)>0) and (a[length(a)-1]=0) do setlength(a,length(a)-1);
end;
 
procedure addnum(var a:Carr;c:char);
var
  i:integer;
begin
  i:=length(a);
  setlength(a,i+1);
  a[i]:=c;
end;
 
begin
  spc:=false;
  while not eoln do begin
   read(c);
   if c=' ' then spc:=true;
   if spc then addnum(b,c) else addnum(a,c);
  end;
  CharArrToLNum(a,n);
  CharArrToLNum(b,m);
  setlength(q,1);
  q[0]:=1;
  LNumAdd(n,q);
  CharArrToLNum(a,z);
  LNumMult(z,n,n);
  LNumDivNumber(n,2);
  LNumAdd(m,q);
  CharArrToLNum(b,z);
  LNumMult(z,m,m);
  LNumDivNumber(m,2);
  LNumMult(n,m,q);
writeln('Result:');
  LNumPrint(q);
end.

program project1;
 
{$mode objfpc}{$H+}
 
uses gmp;
 
var
  m, n, res : mpz_t;
 
begin
  mpz_init(m);
  mpz_init(n);
  if mp_scanf('%Zd %Zd', @m, @n) = 2 then
  begin
    mpz_init(res);
    res := (n * (n + 1) / 2);
    res := res * (m * (m + 1) / 2);
    mp_printf('%Zd'#10, @res);
  end;
end.

writeln('Result:');