Program wybierz_opcje; 

Var 
   k,x,y,wybor: integer; 

Procedure kwadrat; 

Begin 
  Rectangle( 100, 100,300 ,300 ); 
end; 

Procedure kolo; 

Begin 
  Ellipse( 500,500 , 600, 600); 
end; 

Begin 
  writeln('wybierz 1-kwadrat 2-kolo 3-koniec programu'); 
  readln(wybor); 
  Case wybor of 
    1: 
      kwadrat; 
    2: 
      kolo; 
    3: 
      writeln('Przepraszamy za usterke'); 
  else 
    writeln('Podales bledny numer miesiaca'); 
  end ; 
end.