Bifați declarațiile corecte:
 function f1(n:real; var m:real);
 procedure text(x:string; n:byte):byte;
 function prim(a:integer):boolean;
 procedure max(var x:tab; n,m:byte);