Правильно или нет не знаю
С динамическим массивом:
<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>
1. исходное число х
2.х+10
3. если (х+10)>20 то (х+10)-3
если (х+10)<20 то (х+10)+3
4.((х+10)+-3)+2
5. ответ:
например
1. число 5
2. 5+10=15
3.15+3=18
4.18+2=20
5. ответ 20
ИЛИ
1. число 15
2. 15+10=25
3. 25-3=22
4.22+2=24
5. ответ:24
Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
<span>end.</span>