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

Begin
readln(a);
readln(b);
if a mod b = 0 then write(a div b) else write('остаток ', a mod b, ', а частное ', a div b)
end.

begin
read(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 begin
writeln('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.

проверь всё в компиляторе, я не уверен