// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var a:=SeqRandom(5,10,99).Sorted.ToArray; Writeln('a=',a); var b:=SeqRandom(5,10,99).Sorted.ToArray; Writeln('b=',b); var c:=new integer[10]; var i:=0; var j:=0; var k:=0; while (i<5) and (j<5) do begin if a[i]<b[j] then begin c[k]:=a[i]; Inc(i) end else begin c[k]:=b[j]; Inc(j) end; Inc(k) end; if i=5 then for var m:=j to 4 do begin c[k]:=b[m]; Inc(k) end else for var m:=i to 4 do begin c[k]:=a[m]; Inc(k) end; Writeln('c=',c) end.
var
a,b:real;
begin
readln(a,b);
if (a>0) or (b<-2) then
writeln('истинно')
else
writeln('ложно');
end.