Program Primer;
Var
M,result : real;
Begin
Writeln('Введите значения переменной M');
Write('M=');
Readln(M);
Result := sqr((1+M)*3);
Writeln ('sqr((1+M)*3)', result:8:0);
Readln;
End.

Запусти Паскаль, введи данную программу, получи результат, если M=2.

Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1)и M2(x2,y2) . Ответ введи целым числом.Если координаты точек: x1=1;y1=3x2=9;y2=11 .Ответ округли до целых.Ответ: d=

Ну запустил)) ответ 81, это все?)