1 Составить программу на языке Паскаль

1) var f: text; a: array[1… 7] of real; i,k,c,x: integer; s: string; begin for i: =1 to 7 do begin readln (x); a[i]: =x; end; assign (f,'file.txt'); rewrite (f); for i: =1 to 7 do begin str (a[i],s); writeln (f,s); end; close (f); reset (f); k: =0; while not eof (f) do begin readln (f,s); val (s,x,c); if x<0 then k: =k+1; end; close (f); if k<>0 then writeln ('В массиве ',k,' отрицательных элемента (ов) '); else writeln ('В массиве нет отрицательных элементов'); erase (f); end.2) Var a,b,c,d: integer; Function max (a,b: integer): integer; begin if a>b then max: =a else max: =b; end; Begin readln (a,b,c,d); a: =(max (a,b); b: =(max (c,d); writeln ('max=',max (a,b); End.