Можно 25.239.2.183.27
вроде так,но я не уверена
С динамическим массивом:
<em>VAR</em>
<em> i: Integer;</em>
<em> a: Array of Char;</em>
<em>BEGIN</em>
<em> Assign(input, 'input.txt'); ReSet(input);</em>
<em></em>
<em> SetLength(a, 1);</em>
<em> While (not eoln(input)) do begin</em>
<em> SetLength(a, Length(a)+1);</em>
<em> Read(a[Length(a)-1]); End;</em>
<em></em>
<em> For i := 1 to Length(a)-1 do</em>
<em> If (not Odd(i)) then a[i] := '-';</em>
<em></em>
<em> For i := 1 to Length(a)-1 do Write(a[i]);</em>
<em>END.</em>
Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.