Помогите пожалуйста информатика программируем на pascal.
1)Вводится 2 разных целых числа , проверить делится ли первое на второе.Вывести на экран сообщение об этом , а также остаток (если есть) и частное (в любом случае)
2)Вводится 3 разных целых числа , найти какое из них среднее.
3)Найти корни квадратного уравнения и вывести их на экран , если они есть , если корней нет , то вывести сообщение об этом. Данное квадратное уравнение определяется коэффициентами a,b,c , которые вводит пользователь. Помогите пожалуйста!СРОЧНО!!!

beginreadln(a);readln(b);if a mod b = 0 then write(a div b) else write('остаток ', a mod b, ', а частное ', a div b)end.beginread(a, b, c);write((a+b+c)/3);end.begin read(a, b, c);D:=sqrt(sqr(b) * (-4)*a*c);if D>0 then beginwriteln('x1 = ', (-b+D)/2*a);writeln('x2 = ', (-b+D)/a*2);end;else if D=0 then writeln('x = ', -b/a*2) else writeln('нет корней');end. проверь всё в компиляторе, я не уверен