В левой строке находится команда
<span>var<span>
A, B, C: integer;</span>
begin<span>
write('Введите A, B и C: ');</span><span>
read(A,B,C);</span><span>
writeln('Число B находится между числами A и C - ',((A < B) and (B < C)) or ((A > B) and (B > C)));
</span><span>end<span>.</span></span></span>
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var x:=ReadInteger('x=');
Writeln('y=',x>0?5*x:x*x)
end.
<u><em>Тестовое решение</em></u>
x= 4
y=20
x= -4
y=16
Если я не ошибаюсь конечно,то это величина.величина бывает как постоянная(константа) так и пенеменная постоянная величина не изменяет своего значения в ходе выполнения алгоритма,а переменная может изменять свое значение в ходе выполнения алгоритма)в общем можно многое писать об этом,я предполагаю что это величина
Как я понял, нужно определить четные элементы массива.
Var a:array[1..6] of integer;
x,n:integer;
begin
For x:=1 to 6 do
read (a[x]);
n:=0;
For x:=1 to 6 do
If a[x] mod 2=0 then n:=n=1;
Writeln(n);
end.