SQL> declare
  2  p number(5);
  3  r number(5,2);
  4  ci number(5);
  5  begin
  6  p:=10000;
  7  r:=5.43;
  8  ci:=p*(1+(r/100));
  9  dbms_output.put_line('compound interest is : '||ci);
 10  end;
 11  /
compound interest is : 10543                                                    

PL/SQL procedure successfully completed.





SQL> declare
  2  p number(5);
  3  q number(5);
  4  a number(5);
  5  s number(5);
  6  m number(5);
  7  d number(5);
  8  begin
  9  p:=5;
 10  q:=3;
 11  a:=p+q;
 12  s:=p-q;
 13  m:=p*q;
 14  d:=p/q;
 15  dbms_output.put_line('addition : '||a);
 16  dbms_output.put_line('subtraction : '||s);
 17  dbms_output.put_line('multiplication : '||m);
 18  dbms_output.put_line('division : '||d);
 19  end;
 20  /
addition : 8                                                                    
subtraction : 2                                                                 
multiplication : 15                                                             
division : 2                                                                    

PL/SQL procedure successfully completed.


SQL> /* if loop */
SQL> declare
  2  i number:=&i;
  3  j number:=&j;
  4  begin
  5  if i>j then
  6  dbms_output.put_line('i is greater than j'||i);
  7  else
  8  dbms_output.put_line('j is greater than i'||j);
  9  end if;
 10  end;
 11  /
Enter value for i: 20
old   2: i number:=&i;
new   2: i number:=20;
Enter value for j: 30
old   3: j number:=&j;
new   3: j number:=30;
j is greater than i30                                                           

PL/SQL procedure successfully completed.

SQL> /* case statement */

SQL> declare
  2  res char(1):='v';
  3  begin
  4  case res
  5  when 'v' then dbms_output.put_line('very good');
  6  when 'g' then dbms_output.put_line('good');
  7  when 'e' then dbms_output.put_line('excellent');
  8  when 'p' then dbms_output.put_line('poor');
  9  else dbms_output.put_line('just passed');
 10  end case;
 11  end;
 12  /
very good                                                                       

PL/SQL procedure successfully completed.