// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
1 1 2 3 5 8 13 21 34 55
Очень просто. В нашем глазу есть специальные клетки - <em>палочки</em> и <em>колбочки</em><em />.Палочки различают контур объекта, а колбочки - его контраст, яркость, цвет.<em /><em /> НО это только в том случае, если там, где находится человек - светло. В противном случае либо работают палочки, а колбочки работают плохо, либо работают только палочки, либо вобще ничего не работает.
Program n1;
var x,y: real;
begin
readln(x,y);
if y=3*x-2 then write('лежит')
else write('не лежит');
end.
PascalABC.NET
1)
var
a:String = 'лекарство';
b,c,d:String;
begin
b:= copy(a,1,2);
c:= copy(a,7,1)+copy(a,9,1);
d:= copy(a,8,2);
WriteLn(b+c);
WriteLn(b+d);
end.
2)
var a:String = 'нитка';
begin
WriteLn(a);
a:= a.Replace('ит','ер');
WriteLn(a);
a:= a.Replace('е','о');
WriteLn(a);
a:= a.Replace('нор','кри');
WriteLn(a);
a:= a.Replace('рик','ниг');
WriteLn(a);
a:= a.Replace('кни','пур');
WriteLn(a);
end.
3)
var a,b,c,d,e,f:String;
begin
a:='кормила';
b:='ку';
c:='ка';
d:='ш';
e:='он';
f:=' ';
WriteLn(b+b+d+c+f+a+f+b+b+d+e+c);
end.
Двойное отрицание же. Просто D.