1.
Var S : String;
   i,k : Byte;
Begin
  Readln(S);
  k:=0;
  For i:=1 to Length(S)-1 do
    If s[i]+s[i+1]='ма' then Inc(k);
  Writeln('"ма" встречается ',k,' раз');
end.

2.
Var S : String;
    n,k : Integer;
Begin
  Readln(S);
  Val(S,n,k);
  Writeln(k=0); {TRUE - правильная запись, FALSE - не правильная запись}
end.

А1.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
uses
  System.Text.RegularExpressions;
begin
  var s:=ReadlnString('Введите текст:');
  Writeln('Количество "ма" равно ',Regex.Matches(s,'ма').Count)
end.

Тестовое решение:
Введите текст: Наша мама - математик и любитель макарон!
Количество "ма" равно 5

А2.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var n:int64;
  if TryStrToInt64(ReadlnString('Введите целое число:'),n)
  then Writeln('Правильный ввод')
  else Writeln('Вы ошиблись!')
end.

Тестовое решение:
Введите целое число: -32452245321
Правильный ввод