Составьте программу, определяющую, является ли данное число кратным 4 Составьте программу, заменяющую большее из двух данных чисел удвоенным произведением, а меньшее - полусуммой этих чисел. Помогите пожалуйста!!!!

program n1; var      x:integer; begin writeln('Введите число'); readln(x); if (x mod 4=0) then writeln('Является') else writeln('Не является'); end. program n2; var    a,b:integer; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); if a>b then writeln(a*b*2,'  ',(a+b)/2) else writeln((a+b)/2,'  ',a*b*2); end.