Viết chương trình nhập mảng gồm 50 phần tử nguyên. tính tổng các phần tử chẵn trong mảng ? tìm giá trị lớn nhất trong mảng ?

uses crt;
var i,s,max:longint;a:array[1..50]of longint;
begin
 clrscr;
  s:=0;
  for i:=1 to 50 do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         if(a[i] mod 2=0)then s:=s+a[i];
        end;
  max:=a[1];
  for i:=2 to 50 do if(a[i]> max)then max:=a[i];
  writeln('tong cac phan tu chan la:',s);
  write('so lon nhat la:',max);
 readln
end.

uses crt, math;
var a: array[1..50] of longint;
    res, max_val, i: longint;
begin
clrscr;
    for i:=1 to 50 do 
        begin
            read(a[i]);
            if a[i] mod 2 = 0 then inc(res, a[i]);
            max_val:=max(max_val, a[i]);
        end;

    writeln(res);
    writeln(max_val);
readln; readln;
end.