Буду очень благодарен вам Помогите написать программу на Паскале 1) Написать…

1) var a,b,c,max: integer; BEGINreadln (a,b,c); if a>b then begin if a>c then max: =a else max: =c; end; else begin if b>c then max: =b else max: =c; writeln (max); END.2) const N=10; var a: array [1… N] of integer; i,s: integer; BEGINs: =0; for i: =1 to N dobeginreadln (a[i]); s: =s+5*a[i]; end; writeln (s); END.4) const N=10; var a: array [1… N] of integer; x,i,s: integer; BEGINs: =0; for i: =1 to N dobeginreadln (x) s: =s+x; end; writeln (s); END. Третью, к сожалению, подзабыл как