<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
Program Task;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x, y : real;
a, b : integer;
begin
a := 1;
b := 3;
read(x);
if (x < 2.3) then
y := exp(-b * x) * sin(b * x)
else if (x < 3) then
y := cos(b * x)
else
y := exp(-a * x) * cos(b * x);
writeln(y);
end.<span>
</span>
Бир<span> = числительное "один", а также признак неопределенности
</span>бириси<span> = один (из нескольких)
</span>
не забываем - нумерация в массиве начинается с 0
var
d : array of integer := new integer[30];
n : integer := -1;
i : integer;
begin
d := arrRandom(30, -100, 100);
repeat
n += 1;
if d[n] > 0 then i += 1;
until (n = 29) or (i = 4);
writeln('массив: ', d);
writeln('четвертый положительный элемент массива d[', n, ']=', d[n]);
end.