program hayat2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
    x , y , z : integer ;
   h, a , b , c , d , e , f : char ;
begin
  writeln ;
  writeln ( ' a' , 'addition ' );
  writeln ( ' b ' , ' subtractin ' );
  writeln (' c ' , ' multiplication ' );
  writeln (' d ' , ' division ' );
  writeln ( ' e ' , ' square ' );
  writeln ( 'f ' , ' squarw root ' );
  writeln ( ' ########################## ' );
  writeln ;
  writeln;
  writeln ( ' please enter 2 # and select the operation from this menu  : ' );
  read ( x , y );

  case (h) of
  'a' :begin
  z:= x + y ;
  writeln ( ' the result of add is ' , z );
  writeln ;
  end;
  case (h) of
  'b' : begin
  z:= x - y ;
  writeln ( ' the result of subtract is' , z );
  writeln ;
  end ;
  case (h) of
  'c' : begin
  z:= x * y ;
  writeln ( ' the result of multiply is ' , z );
  writeln ;
  end;
  case ( h ) of
  'd' : begin
  z:= x div y ;
  writeln ( ' the result of divide is ' , z );
  writeln ;
  end ;
  case ( h) of
  'e' : begin
  z:=  sqr (x + y) ;
  writeln ( ' the result of square is ' , z );
  end;
  readln

  end.