Как в паскале записать квадратный модуль?
|x-a|^2

x в квадрате можно записать тремя Очень Через математическую функцию: y:=sqr(x);

3. Через возведение в степень: y:=power(x, 2);

Abs - функция языка Паскаль, которая вычисляет модуль числа.

Sqr - функция языка Паcкаль, которая возводит число в квадрат.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.