program na;
var 
     x :integer;
     
function s (a:integer):integer;
begin
s:=a;
end;

   begin

x:=s(5);
drawText(''+x,50,10);
repaint;
delay(5000);
  
   end.