Var x, a, b,., c, d: integer;
begin
readln(x, a, b);
if ((x > a) and (x < b)) then
writeln(a; b);
end.
1.истиное высказ.2.ложное.3.предложения которое не является выска.4.истинного высказывания со словами "неверное,что".
<span>var
i:integer;
begin
i:=2;
while i<=100 do
begin
write (i,' ');
i:=i+2;
end;
end.</span>