<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Range(1,131,2).ToArray; a.Println
end.
<u>Результат</u>
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131
// PascalABC.NET 3.0, сборка 1088
var
s1,s2:string;
d:integer;
begin
Write('Первая строка: '); Readln(s1);
Write('Вторая строка: '); Readln(s2);
d:=Length(s1)-Length(s2);
if d>0 then Writeln('Первая строка длиннее на ',d)
else
if d<0 then Writeln('Вторая строка длиннее на ',-d)
else Writeln('Строки имеют равную длину')
end.
3), т. к. логическое "или" ложно только тогда, когда ложны оба высказывания