program m(input,output); type string50 = string[50]; var name:string50; function et(name1 :string50):string50; begin et:= 'heloo scoty' end; begin writeln('in main befor calling'); writeln('in main after caling',et(name)) end.