Var a:integer;
Begin
Write('Введите год: '); readln(a);
if (a>=1703) and (a<1914) then writeln('Санкт Петербург');
if (a>=1914) and (a<1924) then writeln('Петроград');
if (a>=1924) and (a<1991) then writeln('Ленинград');
if (a>=1991) then writeln('<span>Санкт Петербург</span>');
End.
"_" это верхнее подчеркивание (_X*_Z)*Yv_Z
var
a, b : real;
begin
writeln('ax=b');
write('введите a, b: ');
readln(a, b);
writeln(a, 'x=', b);
if (a = 0) and (b = 0) then writeln('x= бесконечное множество')
else if (a = 0) and (b <> 0) then writeln('уравнение не имеет решений')
else begin
writeln('x=', b, '/', a);
writeln('x=', b/a);
end;
end.
Сделать еще один цикл прохода по массиву, с условием
for (int i=0; i<15; i++)
{
if (M[i]<0)
{ M[i] = M[i] * (-1); }
}
Это как вариант. А вообще можно использовать следующую функцию
M[i] = Math.Abs(M[i]); это взятие модуля