program task;
var
x, f: real;
t: boolean;
begin
readln(x);
t := (x > 2) and (x < 5);
case t of
true: f := 2 * x;
false: f := 0;
end;
write(f);
<span>end.</span>
1) именительного падежа,единственного числа.
2)<span>следовательно, число не оканчивается на 0</span>
26+26=52, вот и всё,легко же
<span>Сведения команды из окружающего мира называется информацией</span>
<span>Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.</span>